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

220

370

Посмотреть ответы 2

Ответы на вопрос:

jennie082017

Информатика

4,6(82 оценок)

Var a,b,c,d,e,m: real; begin writeln('введите 5 чисел'); read(a,b,c,d,e); m: =a; if m< b then m: =b; if m< c then m: =c; if m< d then m: =d; if m< e then m: =e; 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.