Bài 1:

Program BTT;
Uses crt;
Var B: array[1..50] of longint;
    n,i,d,t: longint; tbc: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0; t:=0;
        Write('Cac gia tri chan lon hon 0: ');
        Begin
                Randomize;
                For i:=1 to n do
                Begin
                        B[i]:=random(500);
                        t:=t+B[i];
                        If (B[i] mod 2 = 0) and (B[i]>0) then Write(B[i],' ');
                End;
        End;

        tbc:=t/n;
        Writeln;
        Write('Trung binh cong la: ',tbc:0:2);
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var P,P1: String;
    i: longint;
    dem: array['A'..'Z'] of longint;
    ch: char;
Begin
        Clrscr;
        Write('Nhap xau P: '); Readln(P);
        P1:='';
        For i:=1 to length(P) do
                If (P[i] in ['A'..'Z']) or (P[i] in ['a'..'z']) or (P[i] = #32)  then P1:=P1+P[i];
        Writeln('Xau P1: ',P1);
        For i:=1 to length(P1) do
                P1[i]:=Upcase(P1[i]);
        Writeln('Xau P1 sau khi in hoa: ',P1);
End.