thuật toán:
b1: nhập số phần tử của dãy
b2: nhập mảng
b3: trong quá trình nhập if a[i] mod 2<>0 then d:=d+1; {nếu ko chia hết cho 2 cho biến đếm +1}
b4: xuất kết quả
vd:
nhập số phần tử của dãy=3
nhập mảng: a[1]=3
a[2]=6
a[3]=5
xuất kết quả: co 2 so le trong day
chương trình (pascal)
uses crt;
var a: array[1..100] of integer;
n,i,d: integer;
begin
clrscr;
write ('nhap so phan tu cua day: '); readln (n);
for i:=1 to n do
begin
write ('nhap a[',i,']: '); readln (a[i]);
if a[i] mod 2<>0 then d:=d+1;
end;
writeln ('co ',d,' so le trong day');
readln;
end.
Xin CTLHN ạ
hết sức đầy đủ
sẵn sàng trả lời những thắc mắc của bạn !!!!
:))
^_^
