Question

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

Answer 1

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.