Вычислить значение выражения - Turbo Pascal (28974)

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

Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

Решение задачи: «Вычислить значение выражения»

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

uses crt;
const nmax=35;
type mas=array[1..nmax] of real;
procedure massiv(var a:mas;n:byte;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:5:2);
 end;
writeln;
end;
function min(a:mas;n:byte):real;
var i:byte;
    m:real;
begin
m:=a[1];
for i:=2 to n do
if a[i]<m then m:=a[i];
min:=m;
end;
var x,y:mas;
    z:real;
begin
clrscr;
randomize;
massiv(x,20,'X');
massiv(y,35,'Y');
z:=min(x,20)+min(y,35)/2;
writeln('Z=',z:0:2);
readln
end.

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

В начале кода подключается библиотека crt, которая обеспечивает функции для работы с файлами и вводом-выводом.
Затем определяется константа nmax, которая ограничивает размер массива до 35 элементов.
Определяется тип данных mas, который представляет собой массив из 1 до nmax элементов типа real (число с плавающей точкой).
Создается процедура massiv, которая принимает в качестве параметров массив a, его размер n и символ c. Внутри процедуры выводится сообщение о массиве и его содержимом. Для каждого элемента массива выполняется вычисление значения 9*random и вывод этого значения.
Определяется функция min, которая принимает в качестве параметров массив a и его размер n. Изначально устанавливается начальное значение минимального элемента равным первому элементу массива. Затем выполняется цикл, в котором проверяется, какой из следующих элементов меньше текущего минимального: текущий элемент массива или следующий элемент массива. Если текущий элемент меньше, то он становится новым минимальным элементом. В конце функция возвращает найденный минимальный элемент.
Создаются два массива x и y, а также переменная z типа real.
Выполняется инициализация массивов x и y с помощью функции randomize, которая генерирует случайные числа.
Вызывается процедура massiv для массива x со значением 20 и символом 'X'.
Вызывается процедура massiv для массива y со значением 35 и символом 'Y'.
Вычисляется значение z как наименьшего из двух минимальных элементов массивов x и y.
Выводится значение z.
Конец программы.