Напишите программный код к следующей задаче:
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. После ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.
Срочноооооо!
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. После ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.
Срочноооооо!
More Questions From This User See All
Answers & Comments
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.
Вот решение.