Bài 1:
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
s:=s+A[i];
End;
Write('Cac phan tu chan: ');
For i:=1 to n do
If A[i] mod 2 = 0 then Write(A[i],' ');
Writeln;
Write('Tong cac gia tri vua nhap la: ',s);
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var S: String;
i: longint;
Begin
Clrscr;
Write('Nhap xau S: '); Readln(S);
Write('Xau vua nhap theo thu tu nguoc lai la: ');
For i:=length(S) downto 1 do
Write(S[i]);
Writeln;
For i:=1 to length(S) do
If S[i]=' ' then Delete(S,i,1);
Write('Xau sau khi bo ki tu trang: ',S);
Readln
End.
