In a one-dimensional array A (10), calculate the arithmetic mean of positive elements.

program zz1;
const n = 10; // set the number of elements in the array
var i, k, s: integer; // set variables of integer type
m: array [1..n] of integer;
begin
for i: = 1 to n do // get n random numbers and write them into an array
m [i]: = random (51) – 25;
for i: = 1 to n do // display the resulting array on the screen
write (m [i], ”);
writeln; // go to a new line to display the response
for i: = 1 to n do // organize a loop in which we iterate over all the elements of the array
if m [i]> 0 then begin s: = s + m [i]; k: = k + 1; end; // get the sum and the number of positive elements
write (‘the arithmetic mean of positive array elements =’, s / k: 5: 2); // display the answer
end.