Question

ПОМОГИТЕ
Скласти програму знаходження середньо арефметичного елементів одновимірного масиву(Паскаль)

Answer 1

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.