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 !!!!

:))

^_^

Thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: t←0; dem←0; i←1

-Bước 3: nếu a[i] mod 2=0 thì t←t+a[i] và dem←dem+1;

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất dem và t

-Bước 7: Kết thúc