В классе 15 учеников, их рост считайте случайным образом из диапазона от 150 до 200 см. Отсортируйте их рост по убыванию и выведите тех чей рост ниже 170 см.
Сделайте убывание:
program z_2;
const
n=15;
var
i, t : integer;
a: array [1..50] of integer;
begin
for i:= 1 to n do
begin
a[i]:= random(51)+150;
writeln('Рост ', i, ' - ', a[i]);
if a[i]>=170 then t:=t+1
end;
writeln(t, ' учеников 170+.')
end.

olga877    1   09.12.2020 08:03    1