1. Дан целочисленный массив из 30 элементов, которые могут принимать значения от 150 до 200 - рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Напишите программу, которая подсчитывает число претендентов в состав баскетбольной команды и выводит номера подходящих кандидатур.

const

n = 30;

var

a:array[1 ... n] of byte;

i, count:integer;

begin

randomize;

for i : = 1 to n do

begin

a[i] : = random (51) + 150;

writeln ('Рост претендета № ', i:2, ' - ', a[i]) ;

end;

write ('Номера подходящих кандидатур: ') ;

for i : = 1 to n do

if a[i] > = 180 then

begin

inc (count) ;

write (i, ' ') ;

end;

writeln;

writeln ('Общее количество подходящих претендентов: ', count) ;

end.