Дана последовательность целых чисел, признаком конца которой служит 0. 0 не входит в последовательность. Найти среднеарифметическое элементов последовательности. Напишите программу
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Program n1;var a,sum,k: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do
begin
sum:=sum+a;
k:=k+1;
readln(a);
end;
writeln(sum/k);
end.