Câu 1:
uses crt;
var a : array [1 .. 100] of integer;
i, n, s : integer;
begin
clrscr;
write('Nhap so phan tu : '); readln(n);
write('Nhap ', n ,' phan tu : ');
s := 0; for i := 1 to n do begin
read(a[i]); if a[i] mod 2 = 0 then s := s + a[i];
end; write('Tong = ', s);
readln
end.
Câu 2:
uses crt;
var T, i, n : integer;
begin
clrscr;
T := 6; n := 1;
while T < 100 do
begin n := n + 2;
T := T * n; end;
write('T = ', T);
readln
end.