Написать программу в паскале которая будет вводить - вопрос №31598380 от Tania1236 30.06.2021 23:21

Question

Информатика: Написать программу в паскале которая будет вводить целые числа до 0, подсчитать среднее арифметическое этих чисел

Tania1236 · Answer

Var a,n,sum: integer;beginsum:=0;n:=0;readln(a);while a 0 dobeginsum:=sum+a;n:=n+1;end;writeln(sum/n);end....