Цитата:
Сообщение от ter12
Напишите программу, находящую в двухмерном массиве номера строк с наибольшей суммой элементов.
|
Код:
const n=10;
var mas: array[n,2*n] of real;
sum: array[n] of real;
max:real;
i,j:integer;
begin
randomize;
{заполнение массива случайными значениями и вывод его на экран}
for i:=1 to n do begin
for j:=1 to 2*n do begin
mas[i,j]:=random*50-50;
write(mas[i,j]:4:6]; end; writeln; end;
{подсчет суммы построчно и заполнение массива сумм}
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to 2*n do
sum[i]:=sum[i]+a[i,j];
end;
{анализ массива сумм и вывод номеров строк с наибольшей суммой}
max:=sum[1];
for i:=2 to n do
if sum[i]>max then max:=sum[i];
for i:=1 to n do
if sum[i]=max then writeln('Номер строки с наибольшей суммой элементов ',i);
readln
end.