Определить максимальные элементы в векторах - Turbo Pascal

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

С помощью подпрограммы с типизированными параметрами-значениями и параметрами-переменными, находящей максимальный элемент в векторе, определить максимальные элементы в векторах из 8 и 10 компонентов.

Решение задачи: «Определить максимальные элементы в векторах»

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

function vMax(const v: array of Integer): Integer;
var i, mx: Integer;
begin
  mx:=v[0]; for i:=1 to High(v) do if mx<v[i] then mx:=v[i];
  vMax:=mx;
end;
 
procedure vWriteLn(const s: String; v: array of Integer);
var i: Integer;
begin
  Write(s); for i:=0 to High(v) do Write(' ',v[i]); WriteLn;
end;
 
procedure vGen(var v: array of Integer);
var i: Integer;
begin
  for i:=0 to High(v) do v[i]:=Random(100);
end;
 
var
  a: array [1..8] of Integer;
  b: array [1..10] of Integer;
begin
  Randomize;
  vGen(a); vWriteLn('A =',a);
  vGen(b); vWriteLn('B=',b);
  WriteLn('max(a) = ',vMax(a),', max(b) = ',vMax(b));
end.

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

В этом коде определены четыре переменные:

a - массив целых чисел, размером 8.
b - массив целых чисел, размером 10.
mx - максимальное значение, которое может быть в массиве.
i - счётчик, используемый в цикле. Процедура vMax находит максимальное значение в массиве. Значение сохраняется в переменной mx. Цикл выполняется от 1 до High(v), т.е. до индекса последнего элемента массива. Если текущий элемент больше, чем mx, то значение этого элемента присваивается переменной mx. Процедура vWriteLn выводит строку и массив на экран. Цикл выполняется от 0 до High(v). Каждый элемент массива выводится на экран через пробел. Процедура vGen заполняет массив случайными числами от 0 до 99. Цикл выполняется от 0 до High(v). В основной части программы вызываются эти процедуры. Массив a заполняется случайными числами, выводится на экран, затем заполняется массив b и выводится на экран. Выводятся максимальные значения массивов a и b.