bài 3 nha

program baitap;
uses crt;
var M,A,B:array[1..100] of integer;
    n,d1,d2,i:integer;
  begin
    clrscr;
    write('Nhap so luong phan tu: ');  readln(n);
    writeln('Nhap tung phan tu cua day: ');
    for i:=1 to n do
      begin
        write('M[',i,']= ');   readln(M[i]);
      end;
    d1:=0;
    for i:=1 to n do
      if M[i] mod 2=0 then
        begin
          inc(d1);
          A[d1]:=M[i];
        end;
    write('Co ',d1,' phan tu chan cua day: ');
    for i:=1 to d1 do
      write(A[i],' ');
    writeln;
    d2:=0;
    for i:=1 to n do
      if M[i] mod 7=0 then
        begin
          inc(d2);
          B[d2]:=M[i];
        end;
    write('Co ',d2,' phan tu la boi cua 7: ');
    for i:=1 to d2 do
      write(B[i],' ');
    readln;
  end.

Bài 3:

uses crt;
var i,n,d,d1: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);
         if a[i] mod 7=0 then inc(d1);
      end;
   writeln('Co ',d,' so chan');
   writeln('Co ',d1,' so la boi cua 7');
   write('Cac so chan: ');
   for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;
   write('Cac so la boi cua 7: ');
   for i:=1 to n do if a[i] mod 7=0 then write(a[i],' '); writeln;
readln
end.