/ Материалы / Язык программирования: Паскаль / Дан прямоугольный массив целых положительных...

Дан прямоугольный массив целых положительных...

Задание:

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

Решение:

Введем переменные Min (минимальная сумма элементов строки), iMin (номер строки с минимальной суммой) и Sum (сумма элементов текущей строки). Сначала в переменную iMin записываем 1, а в переменную Min – сумму элементов первой строки. Затем в цикле рассматриваем все строки, для каждой строки считаем сумму элементов и, если эта сумма меньше значения Min, записываем сумму в Min, а в iMin – номер текущей строки. В конце работы цикла в переменной Min будет находиться минимальная сумма элементов строки, а в iMin – номер этой строки

 
const N=10; M=20;
var a:array[1..N,1..M] of integer;
    Min, Sum, iMin, i, k: integer;
begin
  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 < Min then begin
      Min := Sum;
      iMin := i
    end
end;
writeln('Строка ', iMin, ' сумма ', Min )
end.
 


Похожие материалы

avatar
Наверх