Pashq4 Var n, i, sum: integer;
a: array[1..100] of integer;
average: real;
begin
write('Сколько чисел будет в массиве? ');
readln(n);
sum := 0;
for i := 1 to n do
begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;
average := sum/n;
writeln('Среднее арифметическое: ', average);
end.