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

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]gt;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]gt;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]gt;ch then c[i]:=M[i];

end.