Определить, на сколько рост самого высокого человека превышает рост самого низкого - Pascal ABC

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

В массиве хранится информация о росте 25 человек. Определить, на сколько рост самого высокого человека превышает рост самого низкого.

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

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

program blyaha_muha;
const n = 25;
 
        
var a : array [1..n] of integer;
    i : byte;
    min, max, r: integer;
    
begin
Randomize;
min := 190;   max := 1;
for i := 1 to n do begin
    a[i]:=random(41) + 150; //Г¤ГЁГ*ГЇГ*Г§Г®Г* Г°Г®Г±ГІГ* ГўГ§ГїГ« 150..190 Г±Г¬
    if (min > a[i]) then min := a[i];
    if (max < a[i]) then max := a[i];
    end;
r := max - min;
 writeln('ГђГ*Г§Г*ГЁГ¶Г* Гў Г°Г®Г±ГІГҐ Г¬ГҐГ¦Г¤Гі Г±Г*Г¬Г»Г¬ Г¬Г*Г«ГҐГ*ГјГЄГЁГ¬ ГЁ Г±Г*Г¬Г»Г¬ ГўГ»Г±Г®ГЄГЁГ¬ Г±Г®Г±ГІГ*ГўГ«ГїГҐГІ ', r ,' Г±Г¬.');
end.

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

В программе объявлены три константы: n, min и max. Значение переменной n равно 25. Значения переменных min и max равны 190 и 1 соответственно.
Затем объявлена переменная a типа array [1..n] of integer. Это массив из n элементов типа integer.
Следующий элемент кода - цикл for, который выполняется n раз. В каждой итерации цикла значение переменной i увеличивается на 1.
Внутри цикла переменная a[i] инициализируется случайным числом в диапазоне от 150 до 190.
Затем проверяется, является ли текущее значение a[i] наибольшим среди всех значений a[i]. Если это так, то min присваивается значение a[i]. Если нет, то min остается неизменным. Аналогично проверяется и max.
После завершения цикла, переменная r инициализируется разницей между max и min.
Наконец, выводится сообщение, содержащее значения min и r.