В матрице К на L найти сумму элементов, максимальные и минимальные элементы. Построить вектор из элементов М строки — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
CLS
INPUT " vv kol-vo strok ", k
INPUT "vv kol-vo stolbcov ", l
INPUT "N stroki ", M
  
DIM a(k, l)
RANDOMIZE TIMER
FOR i = 1 TO k
FOR j = 1 TO l
a(i, j) = INT(RND(1) * 10) - 5
PRINT a(i, j); " ";
NEXT
PRINT
NEXT
PRINT
  
  
minimum = a(1, 1)
maximum = a(1, 1)
sum = 0
  
FOR i = 1 TO k
FOR j = 1 TO l
sum = sum + a(i, j)
IF a(i, j) > maximum THEN maximum = a(i, j)
IF a(i, j) < minimum THEN minimum = a(i, j)
NEXT j
NEXT i
  
DIM b(l)
FOR i = 1 TO l
b(i) = a(M, i)
NEXT i
  
PRINT "summa="; sum
PRINT "max="; maximum
PRINT "min="; minimum
PRINT "vektor iz stroki m "
  
FOR i = 1 TO l
PRINT b(i); " ";
NEXT

Похожие записи/страницы:

Leave a Comment