Cho dãy số nguyên A1,...,An (2<=n<=250 ) +) Nhập N +) Đếm các số dương chẵn có trong dãy
2 câu trả lời
uses crt;
var a:array[2..250]of integer;
i,n,dem:integer;
begin
clrscr;
write('n='); readln(n);
if (2<=n) and (n<=250) then
begin
for i:=2 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=2 to n do
if (a[i]>0) and (a[i] mod 2=0) then inc(dem);
writeln('so cac so duong chan trong day la: ',dem);
end
else writeln('vui long nhap lai n');
readln;
end.
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,d: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
d:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i] mod 2 = 0 then inc(d);
End;
Write('Co ',d,' so chan');
Readln
End.
