Помогите Написать программу, которая вводит с экрана N чисел, считает их среднее...

Question

Помогите Написать программу, которая вводит с экрана N чисел, считает их среднее арифметическое и выводит его на экран

Answer 1

Program;
var a,sum,k:integer;
      sr:real;
Begin
sum:=0;
k:=0;
while a<>0 do
begin
read(a);
sum:=sum+a;
k:=k+1;
end;
sr:=sum/k;
writeln(sr);
End.

Comments

не работает

---

ща проверю

---

странно у меня все работает