• Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. Использовать оператор repeat.

Ответы 1

  • program z8_1;uses crt;vari:shortint;k,n:byte;s:integer;sa:real;beginclrscr; i:=1;repeatread(i);if i>0 then begink:=k+1;s:=s+i;end;until i=0;sa:=s/k;write('Количество чисел:',k,' Сумма чисел:',s,'Среднее арифметическое:',sa:4:2);readkeyend.

    • Автор:

      mini
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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