Viết chương trình nhập N phần tử a1,a2...an. Hãy đếm xem dãy có bao nhiêu số hạng chia hết cho 2. Chạy bài N=6 |27|8|3|5|11|22|
2 câu trả lời
var a: array[1..250] of integer;
i, n, d: byte;
Begin
Write('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 d:=d+1;
End;
Write('co ', d, ' so hang chia het cho 2');
Readln
End.
uses crt;
var a: array[1..100] of integer;
n,i,d: integer;
begin
clrscr;
d:=0;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]); end;
for i:=1 to n do
if a[i] mod 2 =0 then d:=d+1;
writeln('Co ',d,' phan tu chia het cho 2');
readln;
end.
đã test mong đc vote
