Пишу частями, пробелы восполни сам
type massiv = array [1..1000] of integer;
var
i,n,summa : integer;
srednee : real; A : massiv;
write('Введите кол-во элементов : ');
readln(n); summa := 0; // начальное значение
for i:=1 to n do begin write('Введите ',i, ' элемент: '); readln(A[i]); summa := summa + A[i]; end;