Дан целочисленный массив из 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.