Паскаль: написать программу для определения максимального элемента в одномерном массиве случайных вещественных чисел c[80]. найти сумму всех элементов. оформить ввод/вывод массива.

155

190

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

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

Егор4ik18

Информатика

4,8(88 оценок)

Var a: array [1..100] of real; max: real; n,i: integer; begin n: =80; for i: =1 to n do begin a[i]: =random (20,5); max: =a[1]; sum: =sum+a[i]; end; for i: =1 to n do if a[i] > max then max: =a[i]; for i: =1 to n do write (a[i]: 3); writeln; writeln (max); writeln (sum); end.