Определить местоположение максимального и минимального элементов в сформированном массиве - Pascal ABC

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

14. Произвольно заданы три одномерных массива с одинаковым числом элементов. Сформировать массив, каждый элемент которого является максимальным элементом соответственно в каждом из трех исходных массивах. Определить местоположение максимального и минимального элементов в сформированном массиве.

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

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

const n=10;
type mas=array[1..n] of real;
procedure massiv(var a:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:6:2);
 end;
writeln;
end;
function max(x,y,z:real):real;
var m:real;
begin
if x>y then m:=x else m:=y;
if z>m then m:=z;
max:=m;
end;
var a,b,c,d:mas;
    i,imn,imx:byte;
begin
massiv(a,'A');
massiv(b,'B');
massiv(c,'C');
writeln('Массив D');
for i:=1 to n do
 begin
  d[i]:=max(a[i],b[i],c[i]);
  write(d[i]:6:2);
 end;
writeln;
imn:=1;
imx:=1;
for i:=2 to n do
if d[i]<d[imn] then imn:=i
else if d[i]>d[imx] then imx:=i;
writeln('Максимальный d[',imx,']=',d[imx]:0:2);
writeln('Минимальный d[',imn,']=',d[imn]:0:2);
end.

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

В первой строке кода объявляется переменная n, которая будет хранить количество элементов в массиве.
Затем объявляется тип данных mas, который представляет собой массив из n элементов типа real (число с плавающей точкой).
Далее объявляется процедура massiv, которая принимает в качестве параметров var a:mas и c:char. Эта процедура выводит сообщение о массиве и его элементах на экран.
Внутри процедуры massiv используется цикл for, который проходит по каждому элементу массива от 1 до n. В каждой итерации цикла значение элемента a[i] устанавливается равным 10 умноженному на случайное число, а затем выводится на экран.
После завершения цикла в процедуре massiv выводится пустая строка.
Далее объявляются три переменные типа mas: a, b и c.
Затем объявляются три переменные типа byte: i, imn и imx.
В блоке begin выполняется вызов процедуры massiv для каждого из массивов a, b и c.
После этого выводится сообщение о максимальном и минимальном элементе в массиве d. Для этого сначала находятся индексы максимального и минимального элемента в массиве d с помощью циклов for.
Затем выводится на экран значение максимального и минимального элемента в массиве d.
Код завершается без использования функции завершения программы.