Отбор в команду по баскетболу Если рост ≥ 170 см из 50 человек. Вывести количество претендентов Задачу решить с помощью Паскаля

Вопрос школьника по предмету Информатика

Отбор в команду по баскетболу
Если рост ≥ 170 см из 50 человек. Вывести количество претендентов
Задачу решить с помощью Паскаля

Ответ учителя по предмету Информатика

Program n1;

var a,i,k: integer;

begin

k:=0;

for i:=1 to 50 do

begin

write(‘введите рост: ‘);

readln(a);

if a>=170 then k:=k+1;

end;

writeln(‘количество: ‘,k);

end.