Tạo mảng số nguyên A gồm n phân tử. Tìm ra các phần tử chẵn Đếm số phần tử chẵn trong mảng. Huhu giúp mk vs ạ mk đg ktra. Thanks mn nhìu

0 bình luận về “Tạo mảng số nguyên A gồm n phân tử. Tìm ra các phần tử chẵn Đếm số phần tử chẵn trong mảng. Huhu giúp mk vs ạ mk đg ktra. Thanks mn nhìu”

1. uses crt;

   var a:array[1..1000000] of longint;

   i,n,d:longint;

   begin

   write(‘n=’);readln(n);

   for i:=1 to n do 

   begin 

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

   end;

   d:=0;

   write(‘Cac phan tu chan: ‘);

   for i:=1 to n do 

   if a[i] mod 2=0 then

   begin

   write(a[i],’ ‘);

   d:=d+1;

   end;

   writeln;

   write(‘Co ‘,d,’ phan tu la so chan’);

   readln;

   end.

   Bình luận

2. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If A[i] mod 2 = 0 then inc(d);
           End;
           Writeln(d);
           For i:=1 to n do
                   If A[i] mod 2 = 0 then Write(A[i],’ ‘);
           Readln
   End.

   Bình luận