Определите максимальное время прохождения 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);
writeln('Введите время участника №', i); - просит ввести время участника №[номер повторения цикла]
readln(t); - считывает число, которое вводит пользователь
if t>x then - если число, которое ввели, больше значения переменной x, то (x:=t;) это число кладем в переменную x.
После прогона всего цикла нам остается вывести значение x, делаем мы это командой writeln('Максимальное время прохождения 100-метровой дистанции: ',x);
Новые вопросы
Русский язык,
1 год назад
Алгебра,
7 лет назад
Математика,
7 лет назад
Алгебра,
8 лет назад
Математика,
8 лет назад