Introduce a one-dimensional array M (x), the elements of which are posit. and denied. whole numbers.

Introduce a one-dimensional array M (x), the elements of which are posit. and denied. whole numbers. Find the arithmetic mean of numbers greater than 3; the largest among the last 10 numbers, the quotient of the division of the largest and the mean. Formulate a new array C (N), consisting of the elements of the array M (x), which are greater than the found quotient.

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

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

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

begin

writeln (‘Enter the size of the array’);

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 (The arithmetic mean of numbers greater than three is’, 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 (‘Maximum of the last ten items’, 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.