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