Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех...

Question

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

Answer 1

Программа на Pascal ABC:

---

Comments

var s,a,i: integer;
begin
cls;
repeat
readln(a);
if a <> 0 then begin
s:=s+a;
i:=i+1;
end;
until a=0;
writeln('Ñóììà: ',s);
writeln('Ñðåäíåå: 's/i);
end.

---

это текстом

---

Я тут запятую забыл (12 строчка): writeln('Среднее: ', s/i);