Дан целочисленный массив из 30 элементов (рост учащихся). Найти максимальный рост, среди учащихся не выше 175.

var rost: array[1 ... 30] of byte;

i, sum: integer;

begin

writeln ('Введите с клавиатуры рост учащихся класса');

for i : = 1 to 30 do readln (a[i]);

writeln ('Считаем количество учащихся, которые выше 175 см');

for i : = 1 to 30 do if a[i] > 175 then sum : = sum + 1;

writeln ('Количество учащихся, которые выше 175 см: ', sum);

end.