Отбор в команду по баскетболу Если рост ≥ 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы