Должна быть точь в точь такая же работа. Только в электронном документе word.

225

416

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

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

юля6712

Информатика

4,4(21 оценок)

Var a: array[1..5] of real; i: integer; min,max: real; begin for i: =1 to 5 do begin write ('введите ',i,' число: '); readln (a[i]); end; max: =a[1]; min: =a[1]; for i: =1 to 5 do begin if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; writeln; writeln ('максимальное = ',max); writeln ('минимальное = ',min); end.