Program z1;beginvar a,d,n,i:integer;var s:real;write('Сколько всего чисел будет');read (n);writeln('Вводите числа');for i:=1 to n dobeginread(d);a:=a+d;end;s:=a/n;write ('Среднее арифметическое=',s);end.
Пытался сделать ввод чисел как-то через массив или автозаполнением, но тогда надо кол-во чисел, а тут n.