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

var

i, x : integer; / / объявляем переменные целочисленного типа.

arr : array [1 ... 40] of integer; / / объявляем массив.

Begin

for i: = 1 to 40 do / / начало цикла.

begin

arr[i] : = random (150,190); / / заполняем элемент массива с индексом i случайным числом.

if arr[i] > = 180 then / / если рост от 180 см.

begin

writeln ('Номер кандидатуры: ', i, ' его рост: ', arr[i], ' см.'); / / вывод строки на экран.

x: = x + 1; / / считаем количество претендентов.

end;

end;

writeln ('Общее количество претендентов в команду: ', x); / / вывод строки на экран.

End.