Предмет: Информатика,
автор: 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.
Интересные вопросы
Предмет: Математика,
автор: kseniiastepkina
Предмет: Химия,
автор: Subsystem
Предмет: Геометрия,
автор: Igor56566
Предмет: Биология,
автор: bhbyf45
Предмет: Биология,
автор: Artemka35