Получить последовательности из элементов матрицы - Pascal ABC

Формулировка задачи:

Дана действительная матрица размера n × m . Получить последовательность b1 ,..., bn , где bk – это наибольшее из значений k-ой строки

Решение задачи: «Получить последовательности из элементов матрицы»

Листинг программы

const
  n = 4;
  m = 5;
  
var
  a: array [1..n, 1..m] of real;
  b: array [1..n] of real;
  i, j: byte;
  max: real;
  
begin
  WriteLn('Матрица:');
  for i := 1 to n do
  begin
    max := 0;
    for j := 1 to m do
    begin
      a[i, j] := 5 * Random;
      if a[i, j] > max then max := a[i, j];
      Write(a[i, j]:7:2)
    end;
    b[i] := max;
    WriteLn
  end;
  WriteLn('Последовательность b:');
  for i := 1 to n do
    Write(b[i]:7:2);
  ReadLn
end.

Объяснение кода листинга программы

В данном коде объявлены две переменные: массив a размером n x m и массив b размером n. Затем происходит вывод матрицы a на экран. Для каждого элемента матрицы a вычисляется максимальное значение, которое затем сохраняется в переменной max. Затем значение этого элемента выводится на экран. После этого выводится последовательность элементов массива b. Код использует цикл for для вывода значений матрицы a и последовательности элементов массива b. Внутри цикла вычисляется максимальное значение, затем выводится текущий элемент матрицы a и его значение сравнивается с максимальным значением. Если текущий элемент больше максимального, то максимальное значение обновляется. Затем выводится значение текущего элемента матрицы a. После этого выводится значение элемента массива b соответствующего индексу текущего элемента матрицы a. В конце программы происходит считывание значения с клавиатуры и завершение работы программы.