mmotop20oo12
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравстуйте, учусь в колледже на программиста, такие дела. возникла проблеммма с заданием вывода номера строки с наибольшей суммой ее элементов (кв матрица). у меня такой код
var
i,j,k,n,summa, max : integer;
a: array [1..3,1..3] of integer;
sum: array [1..3] of integer;
begin
writeln('vvedite elementi matrici');
k:=0;
for i:=1 to 3 do
for j:=1 to 3 do
begin
write('a[',i,'][',j,']=');
readln(a[i,j]);
end;
writeln(a[i,j]);
for i:=1 to 3 do
begin
summa:=0;
writeln('');
for j:=1 to 3 do
summa:=summa+a[i,j];
sum[i]:=summa;
end;
writeln('ssumma kazhdoi stroki');
for i:=1 to 3 do
writeln(sum[i]);
readln;
end.
просто сумму выводит каждой сроки, а как вывести только 1 номер той строки где сумма максимальна?
спасибо |
