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

Question

Информатика

Аля

11 ноября, 05:10

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

+5

Ответы (1)

Знаете ответ на вопрос?

Белка · Answer 1

Var

A, B, C, D, E, M:real;

Begin

WriteLn ('Введите 5 чисел') ;

Read (A, B, C, D, E) ;

M:=A;

if M
if M
if M
if M
if A>B 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.