Заполните массив 15 произвольными целыми числами, введя их с клавиатуры и найдите среди них среднее арифметическое.

var a: array[1 ... 15] of integer;

i, sum, srar, j: integer;

begin

writeln ('Заполните массив с клавиатуры');

for i:=1 to 15 do readln (a[i]);

for i:=1 to 15 do

begin

n:=n+1;

sum:=sum+a[i];

end;

srar:=sum mod n;

writeln ('Среднее арифметическое 15-и введённых с клавиатуры чисел равно ', srar);

end.