Задать вопрос Регистрация
Помочь другим

  • Написать программу ввода целых чисел до тех пор, пока не будет введен ноль, посчитать сумму введеных чисел и их среднее арифметическое. помогите пожалуйста!

Ответы 1

  • var sum,n,temp:integer;

    begin

       sum:=0;

       n:=0;

       readln(temp);

       while(temp<>0) do begin

          inc(n);

          sum:=sum+temp;

          readln(temp);

       end;

       writeln('Sum = ',sum,'; Ave = ',sum/n)

       end.

    • Автор:

      gizmo36
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years