дан двумерный массив заданный случайным образом размером 3*5. Вывести сформированный массив и найти максимальную сумму среди сумм столбцов
Ответы
Ответ дал:
0
var
a:array [1..5,1..3] of integer;
b:array[1..5] of integer;
x,y,i,n,max:
integer;
Begin
i:=1;
randomize;
for x:=1 to 5 do
for y:=1 to 3 do
a[x,y]:=random(10);
for x:=1 to 5 do
Begin
for y:=1 to 3 do
write(a[x,y],' ');
writeln;
End;
for y:=1 to 3 do
Begin
for x:=1 to 5 do
b[i]:=b[i]+a[x,y];
i:=i+1;
End;
for i:=1 to 3 do
if b[i]>max then max:=b[i];
writeln(max);
End.
a:array [1..5,1..3] of integer;
b:array[1..5] of integer;
x,y,i,n,max:
integer;
Begin
i:=1;
randomize;
for x:=1 to 5 do
for y:=1 to 3 do
a[x,y]:=random(10);
for x:=1 to 5 do
Begin
for y:=1 to 3 do
write(a[x,y],' ');
writeln;
End;
for y:=1 to 3 do
Begin
for x:=1 to 5 do
b[i]:=b[i]+a[x,y];
i:=i+1;
End;
for i:=1 to 3 do
if b[i]>max then max:=b[i];
writeln(max);
End.
Вас заинтересует
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад