Найти максимальное значение суммы элементов столбцов матрицы и определить номер столбца — Basic(Бейсик)

disel

Задана матрица a(i;j), (i=1,3; j=1,4)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
DIM a(3,4)
RANDOMIZE TIMER
FOR i=1 TO 3
FOR j=1 TO 4
a(i,j)=INT(RND*10)
NEXT
NEXT
PRINT"matrica"
FOR i=1 TO 3
FOR j=1 TO 4
PRINT a(i,j);" ";
NEXT
PRINT
NEXT
max=0
FOR j=1 TO 4
sum=0
FOR i=1 TO 3
sum=sum+a(i,j)
NEXT
IF sum>max THEN max=sum:stolb=j
NEXT
PRINT"max summa=";max
PRINT"v stolbce ";stolb

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

Leave a Comment