Регистрация
ALBERTALBERT2004
15.10.2020 17:16
Информатика
Есть ответ 👍

Примеры алгоритма по информатике 8 класс

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

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

юля6712
юля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.

Популярно: Информатика