Program NN; Uses crt; Var n,i,s,d: longint; A: array[1..10000] of longint; Begin Clrscr; Write('Nhap n: '); Readln(n); s:=0; d:=0; For i:=1 to n do Begin Read(A[i]); If A[i] mod 100 = 0 then Begin inc(d); s:=s+A[i]; End; End; Write(s/d:0:2); Readln End.
