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

Question

Информатика

Анект

15 октября, 23:26

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

+3

Ответы (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.