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

  • Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры.

    вид экрана:

    Введите числа. Для  завершения последовательности нажмите ноль.

    45  23  15  0

    введено чисел:3

    сумма чисел:83

    Среднее арифметическое:27.67

Ответы 1

  •  

     

     

    В задании не сказанно что числа целые  поэтому тип c: real;

     

     Program SumAndAvg;  

     Uses crt;var n:integer; c,s,m:real;begin clrscr; write('Input Numbers:'); n:=0;s:=0; repeat read(c); if (c>0) then begin n:=n+1; s:=s+c; end; until (c=0); writeln('Numbers count =',n); writeln('Summa =',s:2:2); writeln('Average Value=',s/n:2:2); readkey;end.

    • Автор:

      hardin
    • 6 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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