Работа 3.7 Упр.13 ГДЗ Семакин 10 класс (Информатика)

Задача

Определить наименьший элемент каждой четной строки матрицы $$A[M,N]$$.

Подробный ответ

Нужно найти наименьший элемент каждой чётной строки матрицы $$A[M,N]$$. Для этого удобно просматривать строки с номером $$2,4,6,\dots$$ и в каждой такой строке последовательно сравнивать все элементы с текущим минимумом.

Алгоритм:

Начать со второй строки матрицы.
Взять первый элемент строки за минимум.
Просмотреть все элементы этой строки и, если найден элемент меньше текущего минимума, заменить минимум.
Вывести найденный минимум.
Перейти к следующей чётной строке, увеличив номер строки на 2.

Подходящий вариант программы:

var a: array[1..m,1..n] of integer;
i, j, min: integer;
begin
  j := 2;
  while j <= m do
  begin
    min := a[j,1];
    for i := 1 to n do
      if a[j,i] < min then
        min := a[j,i];
    write(min);
    j := j + 2;
  end;
end.

Здесь переменная $$j$$ перебирает чётные строки матрицы, а переменная $$min$$ хранит наименьший элемент текущей строки.