Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Объявить одномерный массив на 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.