Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен нуль) и подсчет суммы и среднего арифметического введенных положительных чисел. Используйте оператор repeat.
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен нуль) и подсчет суммы и среднего арифметического введенных положительных чисел. Используйте оператор repeat.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
program n_1; var a,s,sa,r:real; begin s:=0; sa:=0; r:=0; repeat write('Введите целое,положительное число»'); readln(a); r:=r+1; if (a>0) then s:=s+a; if (a>0) then sa:=s/r; until (a=0); writeln ('Введено:'); writeln ('Сумма введенных чисел»',s); writeln ('Среднее арифметическое введенных чисел»',sa); end. |
©Решение предоставил Дрюк Иван
Будем благодарны, если вы поделитесь данной записью со своими друзьями в социальных сетях, оставите отзыв и посмотрите другие материалы на нашем сайте.