Question

Найти лучший результат по бегу на 100 м трех участников паскаль !

Answer 1

Var r1,r2,r3,min:real;
begin
writeln('Введите результаты:');
readln(r1,r2,r3);
if r1<r2 then min:=r1 else min:=r2;
if r3<min then min:=r3;
writeln('Лучший результат = ',min);
end.

Пример:
Введите результаты:
12.1 10.8 11.7
Лучший результат = 10.8

Answer 2

Var
    r1, r2, r3: real;

begin
    write('Введите результаты: ');
    readln(r1, r2, r3);
   
    if r1 > r2 then r1 := r2;
    if r1 > r3 then r1 := r3;
   
    writeln('Лучший результат = ', r1);
end.