Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.(Паскаль АВС)

Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.(Паскаль АВС)
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы