Сформировать массив из максимумов десяти массивов, составленных из случайных чисел - Pascal

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

Десять раз генерировать ряд случайных чисел от 0 до 99 . Каждый ряд также должен иметь произвольную длину . В каждом ряде следует найти максимальное число. Сохранить только максимальные числа и вывести их на экран. Только прошу, пожалуйста, через динамический массив.

Решение задачи: «Сформировать массив из максимумов десяти массивов, составленных из случайных чисел»

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

const
  ma = 25;
  mb = 10;
 
var
  a: array of integer;
  b: array[1..mb] of integer;
  i, j: integer;
 
begin
  for i := 1 to mb do
    begin
      writeln('Ряд ', i, ':');
      setlength(a, 1 + random(ma));
      b[i] := -1;
      for j := low(a) to high(a) do
        begin
          a[j] := random(100);
          if b[i] < a[j] then b[i] := a[j];
          write(a[j]:3)
        end;
      writeln
    end;
  writeln('Максимальные элементы этих рядов:');
  for i := 1 to mb do write(b[i]:3);
  readln
end.

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

В коде объявлены следующие переменные: — ma (максимальное количество элементов в массиве a) — mb (количество массивов b, которые нужно сформировать) — a (массив, в котором будут храниться максимальные значения элементов) — b (массив, в котором будут храниться текущие значения элементов) — i (индекс текущего массива b) — j (индекс текущего элемента массива a)
В цикле for формируются массивы b. На каждой итерации создается новый массив a, заполняется случайными значениями и инициализируется элемент b[i] значением -1.
В цикле for (вложенном в предыдущий цикл) выводятся значения элементов массива a, а затем элемент b[i] обновляется, если встречено большее значение.
По завершении всех циклов выводятся максимальные значения элементов массивов b.
В конце программы ожидается ввод пользователя для завершения работы программы.