Напишите программу, в которой осуществляется ввод целых чисел (ввод исполняется до

Напишите программку, в которой исполняется ввод целых чисел (ввод исполняется до тех пор, пока не будет введен нуль) и подсчет суммы и среднего арифметического введенных положительных чисел. Используйте оператор repeat.

Задать свой вопрос
Андрей Рюмышев
на каком языке?
Маргарита Шабельникова
паскаль
Валерий Розовляк
отлично
1 ответ
Var  n, ans, sum: integer;   avg: real;begin  sum:=0; n:=0;  repeat    n+=1;    readln(ans);    sum+=ans;  until ans=0;  if (sumlt;gt;0) then n-=1;  avg:=sum/n;  Writeln('sum=',sum,'; average=',avg);end.

запилила вот так, поэтому что веб-сайт делает неприглядно
https://codepad.co/snippet/FmJx0dvk
Валерия
да господи аааааааа
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт