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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
