Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.(Паскаль АВС)
Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.(Паскаль АВС)
Ответ(ы) на вопрос:
Гость
Var
A,B,C,D,E,M:real;
Begin
WriteLn('Введите 5 чисел');
Read(A,B,C,D,E);
M:=A;
if MB then A:=B;
if A>C then A:=C;
if A>D then A:=D;
if A>E then A:=E;
Write(A,' ',M)
End.
Не нашли ответ?
Похожие вопросы