Kahelm 27 октября 2019 в 10:07
На соревнованиях по бегу на 5000 метров для выхода в финал необходимо показать время не более 18 минут 30 секунд.
Сколько спортсменов по результатам соревнований вышли в финал?
Программа получает на вход количество спортсменов, принимавших участие в соревнованиях (1 ≤ N ≤ 100), затем для каждого спортсмена вводится два числа: минуты и секунды – время, показанное на дистанции.
На соревнованиях по бегу на 5000 метров для выхода в финал необходимо показать время не более 18 минут 30 секунд.
Сколько спортсменов по результатам соревнований вышли в финал?
Программа получает на вход количество спортсменов, принимавших участие в соревнованиях (1 ≤ N ≤ 100), затем для каждого спортсмена вводится два числа: минуты и секунды – время, показанное на дистанции.
Var n,m,s,i,kol:int64;
begin
read(n);
for i:=1 to n do begin
read(m,s);
if (mlt;18) then inc(kol);
if (m=18) and (slt;=30) then inc(kol);
end;
writeln(kol);
end.
begin
read(n);
for i:=1 to n do begin
read(m,s);
if (mlt;18) then inc(kol);
if (m=18) and (slt;=30) then inc(kol);
end;
writeln(kol);
end.
Для комментирования необходимо зарегистрироваться на сайте