Odpowiedzi

Najlepsza Odpowiedź!
2010-03-25T18:46:02+01:00
Var
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
1 5 1