Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 - Pascal ABC

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

Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 *– рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается. Нужно составить программу именно на языке паскаль. Паскаль

                    Листинг программы
                
 
                        
                          
                    
const N = 30;
var A: array[1..N] of integer;
     i, x, y: integer;
     s: real;
begin
for i:=1 to N do readln(A[i]); 
...
end.

Объявляется массив A из 30 элементов. Объявляются целочисленные переменные i, x и y, а также вещественная переменная s. В цикле от 1 до 30 заполняются все элементы массива A с 1-ого по 30-ый. ...

Решение задачи: «Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200»

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

const n=30;
var a:array[1..n] of integer;
    i,x:integer;
begin
writeln('Введите ',n,' чисел от 160 до 200');
x:=200;
for i:=1 to n do
 begin
  readln(a[i]);
  if(a[i]>=180)and(a[i]<x)then x:=a[i];
 end;
writeln('Минимальный рост игрока баскетбольной команды=',x);
end.

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

const n=30; — задает значение переменной n равное 30
var a:array[1..n] of integer; — объявляет переменную a типа array[1..n] of integer
i,x:integer; — объявляет две переменные i и x типа integer
begin — начало блока кода
writeln('Введите ',n,' чисел от 160 до 200'); — выводит сообщение с просьбой ввести n чисел от 160 до 200
x:=200; — присваивает переменной x значение 200
for i:=1 to n do — начинает цикл for с i равным 1 и выполняется до n
begin
readln(a[i]); — считывает значение из стандартного ввода и сохраняет его в a[i]
if(a[i]>=180)and(a[i]<x)then x:=a[i]; — проверяет условие a[i]>=180 и a[i]<x и если оно истинно, то присваивает x значение a[i]
end;
end;
writeln('Минимальный рост игрока баскетбольной команды=',x); — выводит сообщение с минимальным значением роста игрока баскетбольной команды
end.