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

Question

Информатика

Альберта

8 октября, 23:38

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

+5

Ответы (1)

Знаете ответ?

Виташа · Answer 1

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.