Отыскать в массиве строку с наименьшей суммой элементов - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Отыскать в массиве строку с наименьшей суммой элементов - Pascal ABC»

textual
const
m = 5;
n =4;
var
a:array[1..n,1..m] of integer;
i,j, k, sum, mins: integer;
begin
writeln('Исходный массив');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(10);
        write(a[i,j]:2);
        end;
    writeln;
    end;
mins:=maxint;
k:=0;
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to m do
        sum:=sum + a[i,j];
    if sum < mins then
        begin
        mins:=sum;
        k:=i;
        end;
    end;
writeln('Минимальная сумма элементов = ',mins,'  в строке  ', k);
end.

11   голосов, оценка 4.182 из 5


СОХРАНИТЬ ССЫЛКУ