vt thuật toán đếm các số lẻ trong dãy số và cho ví dụ

0 bình luận về “vt thuật toán đếm các số lẻ trong dãy số và cho ví dụ”

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

   :))

   ^_^

   Bình luận

2. 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

   Bình luận