uses crt; var a:array[1..1000] of longint; n,i,d,s:integer; begin clrscr; s:=0;d:=0; write('Nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('Phan tu thu ',i,': '); readln(a[i]); end; for i:=1 to n do if a[i] mod 2=0 then begin inc(s,a[i]); inc(d,1); end; write('Trung binh cong cac so chan: ',s/d:0:2); readln; end.
