Cho N và dãy a1,a2 a3,…an.Hãy cho biết trong dãy có bao nhiêu số chẵn

0 bình luận về “Cho N và dãy a1,a2 a3,…an.Hãy cho biết trong dãy có bao nhiêu số chẵn”

1. uses crt;
   var n,i,d:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            if a[i] mod 2=0 then inc(d);
         end;
      writeln(d);
   readln;
   end.

   Bình luận

2. Input: Số lượng phần tử (n), dãy a1, a2, a3, …,an.
   Output: Số số chẵn
   Thuật toán:
   B1: Nhập số lượng phần tử
   B2: dc:=0;
   B3: Cho i chạy từ 1 đến n: Nếu a[i] mod 2 = 0 thì inc(dc);
   B4: Thông báo số số chẵn. Kết thúc thuật toán

   *Chương trình:

   Program qtruong;
   Uses crt;
   Var A:array[1..10000] of longint;
         n, i, dc: integer;
   Begin
   Clrscr;
   Write(‘Nhap n = ‘); readln(n);
   For i:=1 to n do
   begin
        write(‘A[‘,i,’]=’); readln(A[i]);
   end;
   dc:=0;
   For i:=1 to n do if A[i] mod 2 = 0 then inc(dc);
   Writeln(‘Trong day co ‘,dc,’ so chan’);
   readln
   end.

   Bình luận