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

Предыдущий
вопрос Следующий
вопрос

program MinElementSum;
const
N = 6;
M = 10;
var
arr: array[1..N, 1..M] of integer;
i, j, minElement, sum: integer;
begin
sum := 0;
// Ввод элементов массива
for i := 1 to N do
for j := 1 to M do
readln(arr[i, j]);
// Вычисление суммы минимальных элементов из каждой строки
for i := 1 to N do
begin
minElement := arr[i, 1];
for j := 2 to M do
if arr[i, j] < minElement then
minElement := arr[i, j];
sum := sum + minElement;
end;
// Вывод суммы минимальных элементов
writeln('Сумма минимальных элементов из каждой строки равна: ', sum);
end.