uses crt;
var i,n,s:integer; a:array[1..1000000]of longint; 
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('Nhap so thu ',i,': ');readln(a[i]);  
         inc(s,a[i]);
      end; 
   writeln('Tong ',s);   
readln
end.

Tính và in ra tổng các số lẻ (dương)
Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write('Nhap so n:');Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln('Tong cua n so le la:', S);
Readln;
End.

- In ra phần tử lớn nhất và nhỏ nhất
var a:array[1..100] of integer;
i,k,n:integer; 
begin 
readln(n); k:=0; 
for i:=1 to n do begin 
readln(a[i]); 
if a[i]>k then k:=a[i]; 
end; 
writeln(k); 
for i:=1 to n do if a[i]=k then write(i,#32); 
readln 
end.