В компьютер поступают результаты соревнований по плаванию (количество минут и секунд) для трех спортсменов. Составьте программу, которая выводит на экран лучший результат.

Question

Информатика

Антиох

13 марта, 12:41

В компьютер поступают результаты соревнований по плаванию (количество минут и секунд) для трех спортсменов. Составьте программу, которая выводит на экран лучший результат.

+5

Ответы (1)

Знаете ответ на вопрос?

Софрон · Answer 1

Var

best, m, s, i: integer;

begin

best : = 10000000;

for i: = 1 to 3 do begin

write ('min sec = ') ;

readln (m, s) ;

if best > m * 60 + s then best : = m * 60 + s;

end;

writeln ('Лучший = ', best div 60, ' min ', best mod 60, ' sec') ;

end.