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|
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|
By Piper
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