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

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

Задание:

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

Решение:

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

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


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

avatar
Наверх