Екі өлшемді массивке есеп

Question

n өлшемді нақты квадраттық матрица берілген. Ең үлкен элементі орналасқан жолдың элементтерінің қосындысын тап

Answer 1

const n=3;

var a:array[1..n, 1..n] of integer;

max,s,l,i,j:integer;

Begin

for i:=1 to n do

for j:=1 to n do

read(a[i,j]);

m:=a[1,1]; l:=1;

for i;=1 to n do

for j:=1 to n do

if max<a[i,j] then begin max:=a[i,j]; l:=i; end;

s:=0;

for j:= 1 to n do

s:=s+a[l,j]:

write('s= ', s);

end.