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

Question

Информатика

Марлена

15 июля, 06:25

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

+1

Ответы (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.