Дан массив А(N,M). Найти максимальные элементы в каждой строке массива и сформировать из них одномерный массив- 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
INPUT "vvedite kol-vo strok ", n
INPUT "vvedite kol-vo stolbcov ", m
DIM a(n, m), b(n)
FOR i = 1 TO n
FOR j = 1 TO m
INPUT "vvedite element ", a(i, j)
NEXT
NEXT
PRINT "ishodnyj massiv"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
MAX = a(i, 1)
FOR j = 1 TO m
IF a(i, j) > MAX THEN MAX = a(i, j)
NEXT j
b(i) = MAX
NEXT
PRINT "massiv iz maximumov"
FOR i = 1 TO n
PRINT b(i);
NEXT

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

Leave a Comment