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

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


Задание:

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

Решение:

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

  1. const N=10; M=20;
  2. var a:array[1..N,1..M] of integer;
  3.     Min, Sum, iMin, i, k: integer;
  4. begin
  5.   Sum := 0;
  6.   for k:=1 to M do Sum := Sum + a[1,k];
  7.   Min := Sum; 
  8.   iMin := 1;
  9.   for i:=2 to N do begin
  10.     Sum := 0;
  11.     for k:=1 to M do Sum := Sum + a[i,k];
  12.     if Sum < Min then begin
  13.       Min := Sum;
  14.       iMin := i
  15.     end
  16. end;
  17. writeln('Строка ', iMin, ' сумма ', Min )
  18. end.

Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 68 | Добавил: Ученик | Рейтинг: 5.0/1