Заполните массив 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.