Câu 1: 

Program tinh_tong ;

Uses crt ;

Var S,i,n : integer ;

    A: array [1..100] of integer ;

Begin

Write('nhap n=');

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,' =');

Readln (A[i]);

end;

S:=0;

For i:=1 to n do 

If ((A[i] mod 2=1) and (A[i]<100)) then 

S:=S+ A[i];

Writeln('tong cac so le nho hon 100 trong day la:', S);

Readln

End.

Câu 2:

Program dem_so;

Uses crt;

Var A:array[1..20] of integer;

       i, n,d: integer;

Begin 

Write('nhap so luong phan tu cua day, n= ');

Readln(n);

For i :=1 to n do 

Begin

Write ('nhap phan tu thu ',i, '=');

 Readln(A[i]);

end;

d:=0;

For i :=1 to n do

If A[i]= 10 then

d:=d+1;

Writeln ('so so phan tu bang 10 trong mang la:', d);

Readln

End.