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

Паскаль: Написать программу для определения максимального элемента в одномерном массиве случайных вещественных чисел C[80]. Найти сумму всех элементов. Оформить ввод/вывод массива.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы