Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен нуль) и подсчет суммы и среднего арифметического введенных положительных чисел. Используйте оператор repeat.
Answers & Comments
icov
Var n, ans, sum: integer; avg: real;begin sum:=0; n:=0; repeat n+=1; readln(ans); sum+=ans; until ans=0; if (sum<>0) then n-=1; avg:=sum/n; Writeln('sum=',sum,'; average=',avg);end.
запилила вот так, потому что сайт делает некрасиво https://codepad.co/snippet/FmJx0dvk
Answers & Comments
запилила вот так, потому что сайт делает некрасиво
https://codepad.co/snippet/FmJx0dvk