Составить программу, которая будет вводить 10 чисел и искать максимальное число среди этих чисел.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Уитсон
Program t2 ;
var i:chislo, max:integer;
begin
readln(max);
for i:=2 to 10 do begin
readln (chislo);
if chislo>max then max:=chislo
end ;
writeln(max)
end.
В паскале нужно быть внимательным. Если не поставить в нужном месте запятую или какой -то другой знак, программа может показать ошибку.
var i:chislo, max:integer;
begin
readln(max);
for i:=2 to 10 do begin
readln (chislo);
if chislo>max then max:=chislo
end ;
writeln(max)
end.
В паскале нужно быть внимательным. Если не поставить в нужном месте запятую или какой -то другой знак, программа может показать ошибку.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
