Viết chương trình nhập vào mảng A gồm 100 số nguyên. Hãy đưa ra số lượng số chẵn
trong dãy A
mấy bạn giúp mình với ạ, mai mình nộp rồi, mình cảm ơn nhiều ạ
Program BTH; uses crt; var a:array [1..100] of integer; n, i: integer; chan: integer; begin clrscr; write('Nhap so phan tu co trong mang: '); readln(n); for i:=1 to n do begin write('Nhap vao phan tu thu A[',i,']: '); readln(A[i]); end; chan:=0; for i:=1 to n do begin if (A[i] mod 2 = 0) then chan:=chan+1; end; writeln('So luong so chan co trong day la: ',chan); readln; end.
Program FNG; Uses crt; Var A: array[1..100] of longint; i,s: longint; Begin Clrscr; s:=0; For i:=1 to 100 do Begin Write('A[',i,'] = '); Readln(A[i]); If A[i] mod 2 = 0 then inc(s); End;