Câu này lm như nào ak
Viết chương trình đếm các số chẵn trong dãy số nguyên A có N phần tử 10^3

Question

Câu này lm như nào ak Viết chương trình đếm các số chẵn trong dãy số nguyên A có N phần tử 10^3

khanhchau · Answer

program sochan;

uses crt;

var A:array[1..300] of integer;

i,n,dem:nteger;

begin

clrscr;

writeln(‘nhap n = ‘);

readln(n);

for i:=1 to n do

begin

writeln(‘nhap phan tu thu ‘,i );

readln(a[i];

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2 = 0 then

dem:=dem+1;

writeln(‘ co so chan trong day la ‘,dem);

readln

end.

ngochuong · Answer

program dem_chan;

uses crt;

var A:array[1..1000] of integer;

n,i,d:integer;

begin

clrscr;

write(‘Nhap N: ‘); readln(n);

d:=0;

for i:=1 to n do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

if A[i] mod 2=0 then d:=d+1;

end;

write(‘Co ‘,d,’ so chan’);

readln;

end.