Giải hộ với ạ Cho N và dãy số a1,a2,…aN hãy cho biết có bao nhiêu số hạng trong dãy có giá trị là số lẻ

0 bình luận về “Giải hộ với ạ Cho N và dãy số a1,a2,…aN hãy cho biết có bao nhiêu số hạng trong dãy có giá trị là số lẻ”

1. Input: N và dãy a1, a2,…an
   Output: Số giá trị là số lẻ
   *Thuật toán:
   B1: Nhập n và dãy a1, a2,…an
   B2: Cho i chạy từ 1 đến n nếu a[i] mod 2 = 1 thì đó là số lẻ
   B3: In kết quả và kết thúc thuật toán

   *Chương trình:

   Program qtruong;
   Uses crt;
   Var n, i, dl: integer;
         a:array[1..1000000] of longint;
   Begin
   Clrscr;
   Write(‘Nhap so lg ptu, n = ‘); readln(n);
   For i:=1 to n do
   begin
        write(‘a[‘,i,’]=’); readln(a[i]);
   end;
   dl:=0;
   For i:=1 to n do if a[i] mod 2 = 1 then inc(dl);
   Writeln(‘Co ‘,dl,’ so hang trong day co gia tri la so le’);
   readln
   end.

   Bình luận

2. Uses crt;

   var a: array[1..100] of integer;

   i,n,dem: integer;

   begin

   Write(‘Nhap so luong phan tu cua mang: “); readln(n); 

   for i:=1 to n do

   begin

        write(‘Nhap a[‘,i,’]= ‘);

        readln(a[i]);

   end;

   for i:=1 to n do if a[i] mod 2=1 then inc(dem);

   write(‘Co ‘,dem,’ so le trong mang’);

   readln;

   end.

   Bình luận