Главная » Дан целочисленный прямоугольный массив 6x10...
21:04

Дан целочисленный прямоугольный массив 6x10...


Задание:

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

Решение:

Вводим целые переменные Sum (сумма минимальных элементов в каждой строке) и Min (минимальный элемент в текущей строке). Сначала в Sum записываем 0. В цикле рассматриваем все строки, для каждой определяем минимальный элемент и добавляем его к переменной Sum. Для поиска минимального элемента в строке записываем в Min значение первого элемента строки, а затем в цикле рассматриваем все остальные элементы строки, начиная со второго; если очередной элемент меньше Min, записываем его значение в Min. После выполнения программы результат находится в переменной Sum.

  1. const N=6; M=10;
  2. var A:array[1..N,1..M] of integer;
  3.     Min, Sum, i, k: integer;
  4. begin
  5.   { ввод матрицы N на N }
  6.   Sum := 0;
  7.   for i:=1 to N do begin
  8.     Min := A[i,1];
  9.     for k:=2 to M do
  10.       if A[i,k] < Min then Min := A[i,k];
  11.     Sum := Sum + Min
  12.   end;
  13. writeln(Sum)
  14. end.

 


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