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.