Uses crt; Var A:array[1..10000] of longint; s,d,i,n,tbc: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
s:=0; d:=0; For i:=1 to n do If A[i] mod 2 = 0 then Begin s:=s+A[i]; inc(d); End; tbc:=s/d; Write('Trung binh cong cac so chan la: ',tbc); Readln End.
uses crt; var i,s,n,d:longint; a:array[1..100000]of longint; begin clrscr; write('Nhap so phan tu: ');readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': ');readln(a[i]); if a[i] mod 2=0 then begin inc(d); s:=s+a[i]; end; end; writeln('Trung binh cong: ',s/d:0:5); readln end.
