Меню сайта

Задача №43
Дан целочисленный квадратный массив 4 х 4. Найти строки с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.
Program dmas_19-
uses crt-
const -m=4-
var a:array[1..m,1..m] of integer-
— — Min, Sum, iMin, i, k: integer-
begin
randomize-
— For i:=1 to n do
begin
For k:=1 to n do
begin
a[i,k]:=random(50)- —
write(a[I,k]:4)-
end-
writeln-
end-
— Sum := 0-
— for k:=1 to M do —
— Sum := Sum + a[1,k]-
— Min := Sum- —
— iMin := 1-
— for i:=2 to N do —
— begin
— — Sum := 0-
— — for k:=1 to M do —
Sum := Sum + a[i,k]-
— — if Sum &lt- Min then —
begin
— — — Min := Sum-
— — — iMin := i-
— — end-
— — end-
— — Writeln(‘Номер строки ‘,iMin,’ Сумма элементов ‘,Min)-
— — Readln-
— — End.
Категория: Массивы | Дата: 13.12.12

Меню раздела
Блок