Câu a:
program dayso;
uses crt;
var s,i,n:integer
      a:array[1..100] of integer;
begin 
write('nhap n='); readln(n);<br />for i:=1 to n do<br />begin; writeln('A[i]='); readln(A[i]); end;
s:=0;
for i:=1 to n do if A[i] mod 2 <> 0 then s:=s+A[i];
writeln('tong cac so le vua nhap la',s);
readln;
end. 

Câu b:
program mang;
uses crt;
var i,n:integer; a: array[1..100] of integer;
begin
writeln('nhap n='); readln(n);<br />for i:=1 to n do<br />begin; writeln('a[i]='); readln(a[i]); end;
readln;
end.

Câu c:
program mang;
uses crt;
var i,n:integer; a: array[1..100] of integer;
begin
writeln('nhap n='); readln(n);<br />for i:=1 to n do<br />begin; writeln('a[i]='); readln(a[i]); end;
writeln(',A[i],');
readln;
end.