Вводить числа с клавиатуры и суммировать их до тех пор пока не будет введео отрицательное число. Найти среднее арифметическое введенных чисел(отрицательное не учитывать)
var x,sum,sar:real;
k:integer;
BEGIN
sum:=0;k:=-1;
repeat
sum:=sum+x;
k:=k+1;
readln(x);
until x<0;
if k>0 then begin
sar:=sum/k;
writeln('S_Ar= ',sar:0:3); end
else writeln('K=0, S_Ar=XXX');
readln;
END.
<< Назад