Program NhatNgu; Uses crt; Var A: array[1..10000] of longint; n,i,dc,dl: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End; dc:=0; dl:=0; For i:=1 to n do If A[i] mod 2 = 0 then inc(dc) Else inc(dl); Writeln('Co ',dc,' so chan'); Write('Co ',dl,' so le'); Readln End.
uses crt; var i,c,l,n:longint; a:array[1..1000000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); if a[i] mod 2=0 then inc(c) else inc(l); end; writeln('Chan: ',c); writeln('Le: ',l); readln end.
