Выполнить в Паскале:

Массив из 5 вещественных чисел вводится с клавиатуры. Найти среднее арифметическое, min и max элементов массива.

Var i, n:Integer;

A:Array[1 ... 1000] of Real;

sum, srednee, max, min:Real;

Begin

Read (n);

for i:=1 to n do

Read (A[i]);

for i:=1 to n do

sum:=sum+A[i];

srednee:=sum/n;

max:=A[1];

min:=A[1];

for i:=1 to n do

begin

if (A[i]>max) then max:=A[i];

if (A[i]
end;

Writeln ('Srednee = ', srednee:0:2,' Min = ', min:0:2,' Max = ', max:0:2);

end.