Ввести одномерный массив М(х),элементами которого являются положит. и отрицат. целые числа. Найти среднее арифметическое

var M: array[1..1000] of integer;

i,j,sum,x,max,imax,ch: integer;

c:array[1..100] of integer;

begin

writeln(\'Введите размер массива\');

readln(x);

for i:=1 to x do readln(M[i]);

for i:=1 to x do if M[i]>3 then

begin

j:=j+1;

sum:=sum+M[i];

end;

writeln(Среднее арифметическое чисел, больших трёх равно \', sum mod j);

max:=M[x];

imax:=x;

for i:=(x-1) downto (x-10) do if M[i]>max then begin

max:=M[i];

imax:=i;

end;

writeln(\'Максимальное из последних десяти элементов \', M[imax]);

j:=0;

ch:=M[imax] mod sum;

for i:=1 to x do if M[i]>ch then c[i]:=M[i];

end.