Ввести одномерный массив М (х), элементами которого являются положит. и отрицат. целые числа. Найти среднее арифметическое чисел, больших 3; наибольшее среди последних 10-ти чисел, частное от деления наибольшего и среднего. Сформулировать новый массив С (N), состоящий из элементов массива М (х), которые больше найденного частного.

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.