writeln('Максимальное время прохождения 100-метровой дистанции: ',x);
end.
1 votes Thanks 1
arturmirzoian03
можешь написать что именно каждой строчкой находишь
psehard
for i:=1 to 12 do - цикл, тело которого повторится 12 раз writeln('Введите время участника №', i); - просит ввести время участника №[номер повторения цикла] readln(t); - считывает число, которое вводит пользователь if t>x then - если число, которое ввели, больше значения переменной x, то (x:=t;) это число кладем в переменную x. После прогона всего цикла нам остается вывести значение x, делаем мы это командой writeln('Максимальное время прохождения 100-метровой дистанции: ',x);
Answers & Comments
Если нужно написать программу на паскале, то вот:
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.
writeln('Введите время участника №', i); - просит ввести время участника №[номер повторения цикла]
readln(t); - считывает число, которое вводит пользователь
if t>x then - если число, которое ввели, больше значения переменной x, то (x:=t;) это число кладем в переменную x.
После прогона всего цикла нам остается вывести значение x, делаем мы это командой writeln('Максимальное время прохождения 100-метровой дистанции: ',x);