Предмет: Информатика,
автор: dememchukova
Помогите составить программу
максимальное число из пяти чисел
Ответы
Автор ответа:
0
var max, a:integer;
i:byte;
begin
max:=-32625;
i:=1;
while i<6 do
begin
writeln('Введи ', i, ' число');
readln(a);
if a>max then max:=a;
i:=i+1;
end;
writeln('Максимально число ', max);
end.
i:byte;
begin
max:=-32625;
i:=1;
while i<6 do
begin
writeln('Введи ', i, ' число');
readln(a);
if a>max then max:=a;
i:=i+1;
end;
writeln('Максимально число ', max);
end.
Похожие вопросы
Предмет: Русский язык,
автор: kofanovav19
Предмет: Математика,
автор: vitasoltusik09
Предмет: Русский язык,
автор: hakil008
Предмет: Алгебра,
автор: NikoN899
Предмет: Литература,
автор: Anastasia147