program AverageCalculator;
varn, i, sum: integer;average: real;
beginsum := 0;
write('Enter the number of elements: ');readln(n);
writeln('Enter ', n, ' numbers: ');for i := 1 to n dobeginreadln(num);sum := sum + num;end;
average := sum / n;
writeln('Average: ', average);
end.
program AverageCalculator;
var
n, i, sum: integer;
average: real;
begin
sum := 0;
write('Enter the number of elements: ');
readln(n);
writeln('Enter ', n, ' numbers: ');
for i := 1 to n do
begin
readln(num);
sum := sum + num;
end;
average := sum / n;
writeln('Average: ', average);
end.