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.
Второй вариант. Внизу картинка, которая всё подтверждает :)
№1 -3)
№2 - 1)
№3 - 2)
№4 - 2)
№5 - 5)
№6 - 2)
№7 - 1)
1
¬CvA
<span>Вывод в приложении.</span>
Ответ:
информационные технологии в нашем мире, много значат для человека, человек их использует везде, поэтому их значение очень важно!