Question

PASCAL ABC
СРОЧНО 
9 КЛАСС

Напишите программу для решения следующей задачи. На соревнованиях по бегу на 5000 метров для выхода в финал необходимо показать время не более 17 минут. Сколько спортсменов по результатам соревнований вышли в финал? Программа получает на вход количество спортсменов, принимавших участие в соревнованиях (1 ≤ N ≤ 100), затем для каждого спортсмена вводится число: минуты – время, показанное на дистанции.

Answer 1

var a, n, i, c: integer;
 begin
  c := 0;
  readln(n);
  for i := 1 to n do
  begin
    read(a);
    if(a <= 17) then c := c + 1;
  end;
  writeln(c);
end.