Question

5. Двумерные массивы. Описать массив для представления таблицы из 3-х строк и 4-х столбцов. Заполнить массив случайными числами. Определить номер строки, в которой сумма чисел максимальна. Паскаль АВС

Answer 1

//С Вами были Глеб(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.