Объявить одномерный массив на 12 элементов целого типа, найти среднее арифметическое данных элементов, заменить пятый элемент массива полученным результатом

Uses crt;

type

massiv = array [1 ... 12] 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;

A[5] = srednee;

readln;

end.