Pascal Program.

[Danii]

Ma poate ajuta cineva cu o problema ?

Code:

se citeste de la tastatura o matrice n linii n coloane. Sa se determine pt aceasta matrice linia de suma maxima

Are cineva vreo idee ?

[Sovereign]

{numarul de linii si coloane}
repeat
write('n='); readln(n);
until n>1

{citirea matricei}
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',j,']=');
readln(a[i,j]);
end;

{rezolvarea problemei}
max:=-1; c:=0;
for i:=1 to n do
begin
s:=0;
for j:=1 to n do s:=s+a[i,j];
if s>max then
begin
max:=s;
c:=i;
end;
end;

{afisarea rezultatului}
writeln('linia cu suma maxima este: ',c);