Napisz program, który będzie wprowadzał z klawiatury liczby całkowite aż do wystąpienia liczby niedodatniej oraz obliczał i wyprowadzał ich średnią arytmetyczną. Jaka liczba będzie tu znacznikiem końca danych?
Chotkos
Var suma,n,l:longint; begin while l>=0 do begin readln(l); n:=n+1; suma:=suma+l; end;
suma,n,l:longint;
begin
while l>=0 do
begin
readln(l);
n:=n+1;
suma:=suma+l;
end;
writeln(suma/n);
readln;
end.
//znacznikiem jest oczywiście liczba ujemna