Đề 1:
C1: Theo kiểu mảng fake
Uses crt;
Var i,n,T: integer;
begin
clrscr;
Repeat
write('Nhap so n vao: '); Readln(n);
Until (n>0) and (n<=9);
T:=0; i:=0;
Writeln('Bang cuu chuong cua ' ,n,' la:');
While i<=9 do
Begin
i:=i+1;
T:=n*i;
Writeln;
writeln(n,'x',i,'=',T);
End;

readln;
end.
C2: Theo kiểu mảng real
Uses Crt;
Var a:array[1..1000] of integer; i,n,tong:longint;
Begin
Write('Nhap so ptu n vao:'); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']=');
Readln(a[i]);
End;
Tong:=0;
For i:=1 to n do If a[i] mod 2 = 0 then tong:=tong+a[i];
Writeln;
Write('Tong cac gtri so chan cua day a la:',tong);
Readln;
End.
*C3 mình chỉ giải được mỗi tính tổng thôi, còn in ra số cuối thì mình chịu ạ
* Bạn xem bài này của mình để sửa lỗi sai nhá! :D