Информатика, вопрос задал arturmirzoian03 , 7 лет назад

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

Ответы на вопрос

Ответил psehard
0

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

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.

Ответил arturmirzoian03
0
можешь написать что именно каждой строчкой находишь
Ответил psehard
0
for i:=1 to 12 do - цикл, тело которого повторится 12 раз
writeln('Введите время участника №', i); - просит ввести время участника №[номер повторения цикла]
readln(t); - считывает число, которое вводит пользователь
if t>x then - если число, которое ввели, больше значения переменной x, то (x:=t;) это число кладем в переменную x.
После прогона всего цикла нам остается вывести значение x, делаем мы это командой writeln('Максимальное время прохождения 100-метровой дистанции: ',x);
Новые вопросы