Выполнить в Паскале:
Массив из 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]<min) then min:=A[i];  end; Writeln('Srednee = ',srednee:0:2,' Min = ',min:0:2,' Max = ',max:0:2);end.