Напишите программу на Паскале. Дан целочисленный квадратный массив 10x10. Найти сумму максимальных элементов из каждой строки. Предпологается, что в каждой строке такой элемент единственный

var

a : array [1 ... 10] of longint;

i, j, max, ans : longint;

begin

for i:=1 to 10 do

begin

max:=-maxlongint;

for j:=1 to 10 do

begin

read (a[i]) ;

if a[i]>max then max:=a[i];

end;

ans:=ans+max;

writeln;

end;

writeln (ans) ;

end.

И этот массив не квадратный. Такие массивы называют двумерными массивами.