Làm giúp với tui đang làm kiểm tra Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy số nguyên A gồm N phần tử A1, A2, …, An. Cho biết có bao nhiêu phần tử là số chẵn trong dãy số.
2 câu trả lời
Program Bai_tap;
Uses crt;
Const Nmax = 100;
Var A: array[1..Nmax] of Integer;
N, i, dem: byte;
Begin
Clrscr;
Write(‘ Nhap so luong phan tu n= ’);
Readln(n);
For i:=1 to n do
Begin
Write(‘ 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(‘ Day so da cho co ’, dem, ’ so chan’);
Readln
End.
Program BTH;
uses crt;
var a:array[1..100] of longint;
i,n,k:byte;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
write('a[',i,']: ');readln(a[i]);
If a[i] mod 2=0 then k:=k+1;
end;
write('So luong so chan co trong day la: ',k);
readln;
end.
