Bài 1:
program Min;
var C:array[1..500] of longint;
    X,i,dem:integer;
begin
   randomize;
   dem:=0;
   writeln('Nhap X: '); readln(X);
   for i:=1 to X do 
   begin
      C[i]:=random(300);
      write(C[i]:4);
      if (C[i] mod 3 = 0) then inc(dem);
   end;
   writeln;
   writeln('So phan tu le cua mang la: ',dem);
   for i:=1 to X do 
   begin
      C[i]:=sqr(C[i]);
      write(C[i]);
      write('  ')
   end;
   writeln;
   readln
end.

Dòng code mình in đậm là mình thêm vào để kiểm tra thôi, bạn có thể xoá vì đề không yêu cầu.

Bài 2: 

program Min;
uses crt;
var s,ss:string;
    i,dem:integer;
begin
   writeln('Nhap xau: '); readln(s);
   writeln('Xau dao la: ');
   for i:=length(s) downto 1 do write(s[i]);
   for i:=1 to length(s) do 
   if ('0'<=s[i]) and ('9'>=s[i]) then inc(dem);
   writeln;
   writeln('So ki tu chu so trong xau la: ',dem);
   readln
end.

Còn yêu cầu C mình vẫn chưa làm được a @@ Mong bạn thông cảm. Mình nghĩ sẽ có ai đó giúp được bạn, hihi ^^ 

Bài 1:

Program BTT;
Uses crt;
Var C: array[1..10000] of longint;
    x,i,d: longint;
Begin
        Clrscr;
        Write('Nhap x: '); Readln(x);
        d:=0;
        Begin
                Randomize;
                For i:=1 to x do
                Begin
                        C[i]:=Random(300);
                        If C[i] mod 2 = 1 then inc(d);
                End;
        End;

        Write('Co ',d,' phan tu le');
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var S,P: String;
    i,d: longint;
Begin
        Clrscr;
        Write('Nhap xau S: '); Readln(S);
        Write('Xau dao cua S: ');
        For i:=length(S) downto 1 do
                Write(S[i]);
        Writeln;
        d:=0;
        For i:=1 to length(S) do
                If S[i] in ['0'..'9'] then inc(d);
        Writeln('Co ',d,' ki tu so');

        Write('Nhap xau P: '); Readln(P);
        Insert(P,S,length(S)+1);
        Write('Sau khi chen sau P: ',S);
        Readln
End.