Question

Определите максимальное время прохождения 100- метровой дистанции 12 спортсменов , если время каждого вводится с клавиатуры( информатика)

Answer 1

Если нужно написать программу на паскале, то вот:

program stometrov;

var i:integer; t,x:real;

begin

 x:=0;

 for i:=1 to 12 do

 begin

   writeln('Введите время участника №', i);

   readln(t);

   if t>x then

     x:=t;

 end;

 writeln('Максимальное время прохождения 100-метровой дистанции: ',x);

end.