program ct;

uses crt;

var A:array[1..1000] of integer;

      i,n,x:integer;

      S,Sb:longint;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap A[',i,']: '); readln(A[i]);

     end;

   for i:=1 to n do

     begin

        S:=S+A[i];

        if A[i] mod 3=0 then Sb:=Sb+A[i];

     end;

   write('Day so tren la: ');

   for i:=1 to n do

     write(A[i]:3);

   writeln;

   writeln('Tong la: ',S);

   write('Cac phan tu la boi cua 3 la: ');

   for i:=1 to n do

     if A[i] mod 3=0 then write('A[i]:3);

   writeln;

   writeln('Tong la: ',Sb);

   write('Nhap so x: '); readln(x);

   for i:=1 to n do

     if A[i]=x then write(x', thuoc day so tren')

                    else write(x', khong thuoc day so tren');

readln;

end.

Học tốt!

uses crt;
var n,i,s,s1,x:longint; a:array[1..1000000]of longint; kt:boolean;
begin
clrscr;
   repeat
      write('n=');readln(n);
   until n>0;
   kt:=true;
   for i:=1 to n do 
      begin
         write('a[',i,']=');read(a[i]);
         inc(s,a[i]);
         if a[i] mod 3=0 then inc(s1,a[i]);
      end;
   write('Day so: ');
   for i:=1 to n do write(a[i],' '); writeln;
   writeln('Tong: ',s);
   write('Boi 3: ');
   for i:=1 to n do
      if a[i] mod 3=0 then write(a[i],' '); writeln;
   writeln('Tong: ',s1);
   write('x=');readln(x);
   for i:=a[1] to a[n] do 
      if x<>a[i] then kt:=false;
   if kt then writeln('Co') else writeln('Khong');
readln
end.