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.
