uses crt;
type
massiv = array [1..1000] of integer;
var
i,n,summa : integer;
srednee : real;
A : massiv;
begin
clrscr;
write('Введите кол-во элементов : ');readln(n);
summa := 0 ;
for i:=1 to n do
begin
write('Введите ',i, ' элемент : '); readln(A[i]);
summa := summa + A[i];
end;
srednee := summa / n;
writeln('Среднее арифметическое ', srednee:3:2); // округляем
readln;
end.