Trước hết cần lưu ý rằng phần program và uses bạn tự viết vào
2.var n,i,s:longint; 
a:array[1..1000] of longint; 
begin 
s:=1; 
writeln('nhap so phan tu cua mang');readln(n); 
for i:=1 to n do 
write('nhap phan tu thu ',i,' :');readln(a[i]); 
for i:=1 to n do 
s:=s*a[i]; 
write('tich cua ',n,' so la:',s); 
readln 
end. 
3. 
var n,max,i,min:longint; 
a:array[1..1000] of longint; 
begin 
writeln('nhap so phan tu cua mang ');readln(n); 
for i:=1 to n do 
write('nhap phan tu thu ',i,':');readln(a[i]); 
max:=a[1]; 
min:=a[1]; 
for i:=1 to n do 
begin 
if max<a[i] then max:=a[i]; 
if min >a[i] then min:=a[i]; 
end; 
writeln('phan tu lon nhat la:',max); 
write('phan tu nho nhat la:',min); 
readln 
end. 
1. 
var n,s,i,x:longint; 
a:array[1..1000] of longint; 
begin 
s:=0; 
x:=0; 
writeln('nhap so phan tu cua mang ');readln(n); 
for i:=1 to n do 
write('nhap phan tu thu ',i,':');readln(a[i]); 
max:=a[1]; 
for i:=1 to n do 
begin 
if (a[i] mod 2) =0 then s:=s+a[i]; 
if (a[i] mod 2)=1 then x:=x+a[i]; 
end; 
writeln('tong cac so chan la:',s); 
write('tong cac so le la:',x); 
readln 
end.