program AverageArrayElements;
consN = 10MIN_VALUE = -50MAX_VALUE = 50;
vaA: array[1..N] of Integeri, sum, average: Integer;
begiRandomize;
sum := 0;
for i := 1 to N dbegiA[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUEsum := sum + A[i]end;
average := sum div N;
writeln('Array elements:')for i := 1 to N dwriteln(A[i]);
writeln('Average of array elements: ', average)end.
program AverageArrayElements;
cons
N = 10
MIN_VALUE = -50
MAX_VALUE = 50;
va
A: array[1..N] of Integer
i, sum, average: Integer;
begi
Randomize;
sum := 0;
for i := 1 to N d
begi
A[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE
sum := sum + A[i]
end;
average := sum div N;
writeln('Array elements:')
for i := 1 to N d
writeln(A[i]);
writeln('Average of array elements: ', average)
end.