Напишите программный код к следующей задаче: Организовать беспрерывный ввод чисел с...

Question

Напишите программный код к следующей задаче: Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. После ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.Срочноооооо!​

Answer 1

Program mm;

var sum, sred, a, n:Real;

begin

sum:=0;

a := 0;

Read(n);

while n<>0 do begin

a:=a + 1;

sum := sum + n;

sred := sum/a;

Read(n);

end;

WriteLn('Colichestvo:', a);

WriteLn('Spednee:', sred);

WriteLn('Summa:', sum);

end.

Вот решение.

Comments

когда ввожу число оно не считает какая сумма и арифметическое

---

ошибка ?

---

да

---

исправил, попробуй еще раз

---

я ввожу до 0 3 числа а пишет что 2

---

я ввела 1,2,3,4 а потом 0 и количество:3,ср ар:3 сумма:9

---

щас исправлю

---

хорошо

---

спасибо

---

исправил?