Двумерный массив. Задача

[145Len]

Двумерный массив. Задача

Составить двумерный массив. Найти и вывести сумму элементов в каждой строке массива и найти максимальную из них.

Помогите решить :tehnari_ru_117:

 

[AlexZir]

Какой ЯП?

 

[145Len]

Паскаль

 

[AlexZir]

const n=10;
var sum,summax,i,j:integer;
mas: array[1..n,1..n] of integer;
begin
randomize;
{заполнение массива случайными значениями и вывод его на экран}
for i:=1 to n do begin
for j:=1 to n do begin
mas[i,j]:=random(100)-50;
write(mas[i,j]:4); end;
writeln; end;
{Вычисление сумм элементов каждой строки, вывод их на экран и определение максимальной суммы}
summax:=0;
for i:=1 to n do begin
sum:=0;
for j:=1 to n do begin
sum:=sum+a[j,i]; end;
writeln(sum:4);
if sum>summax then summax:=sum;
end;
writeln('Max sum =',maxsum);
readln;
end.

 

[145Len]

спасибо большое)