На соревнованиях по бегу на 5000 метров для выхода в финал необходимо показать время не более 18 минут 30 секунд.
Сколько спортсменов по результатам соревнований вышли в финал?
Количество спортсменов, принимавших участие в соревнованиях 30. Для каждого спортсмена вводится два числа: минуты и секунды – время, показанное на дистанции.

Решил я Вам эту задачку в паскале. Я у себя проверил - всё работает.Текст программы:Program Sport;var m, s, i, kol: integer;begin for i:=1 to 30 do begin write('Введите минуты, а затем секунды показанные спортсменом номер '+i+':'); read(m,s); if (m<18) then inc(kol); if (m=18) and (s<=30) then inc(kol); end; writeln(kol);end.