Информатика, вопрос задал vfrva , 8 лет назад

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

Ответы на вопрос

Ответил dant02
0
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.
Ответил vfrva
0
не работает
Ответил dant02
0
ща проверю
Ответил dant02
0
странно у меня все работает
Новые вопросы