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

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

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

щас исправлю

хорошо

спасибо

исправил?

program mm;var sum, sred, a, n:Real;beginsum:=0;a := 0;Read(n);while n<>0 do begina:=a + 1;sum := sum + n;sred := sum/a;Read(n);end;WriteLn('Colichestvo:', a);WriteLn('Spednee:', sred);WriteLn('Summa:', sum);end.Вот решение.