5. Двумерные массивы. Описать массив для представления таблицы из 3-х строк и 4-х столбцов. Заполнить массив случайными числами. Определить номер строки, в которой сумма чисел максимальна. Паскаль АВС
//С Вами были Глеб(Gleb1Kosyrev) и Юлия(Nobunaga) Косыревы var ma:array[1..3,1..4] of integer; max,i,j,k,maxi:integer; begin; max:=0; randomize; writeln('Matrix:'); for i:=1 to 3 do begin; writeln; for j:=1 to 4 do begin; ma[i,j]:=random(10); write(ma[i,j]:4); k:=k+ma[i,j]; end; if k>max then begin; max:=k; maxi:=i; end; k:=0; end; writeln; writeln('Result:',maxi); end.
Answers & Comments
Verified answer
//С Вами были Глеб(Gleb1Kosyrev) и Юлия(Nobunaga) Косыревыvar ma:array[1..3,1..4] of integer;
max,i,j,k,maxi:integer;
begin;
max:=0;
randomize;
writeln('Matrix:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 4 do
begin;
ma[i,j]:=random(10);
write(ma[i,j]:4);
k:=k+ma[i,j];
end;
if k>max then
begin;
max:=k;
maxi:=i;
end;
k:=0;
end;
writeln;
writeln('Result:',maxi);
end.