1) Tính tổng các số tự nhiên từ 1 đến n

program tinhtong;

uses crt;

var n,i,t:integer;

begin

       clrscr;

       write('Nhap n: ');   readln(n);

       i:=1;  t:=0;

       while i<=n do;

              begin

                     t:=t+i;

                     i:=i+1;

              end;

       write('Tong cac so tu nhien tu 1 den ',n,' la: ',t);

       readln

end.

2) Dãy sô nguyên

program day_so;

uses crt;

var A:array[1..1000] of integer;

     n,i,j,max,min,tg,t:integer;

begin

       clrscr;

       write('Nhap so luong phan tu: ');   readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       write('a. Day so vua nhap la: ');

       t:=0;

       for i:=1 to n do

              begin

                     write(A[i],' ');

                     t:=t+A[i];

              end;

       writeln;

       writeln('b. Tong cac phan tu la: ',t);

       max:=A[1];   min:=A[1];

       for i:=2 to n do

              begin

                     if A[i]>max then max:=A[i];

                     if A[i]<min then min:=A[i];

              end;

       writeln('c. Gia tri lon nhat la: ',max,' va gia tri nho nhat la: ',min);

       for i:=1 to n-1 do

              for j:=i+1 to n do

                     if A[i]>A[j] then

                            begin

                                   tg:=A[i];

                                   A[i]:=A[j];

                                   A[j]:=tg;

                            end;

       write('d. Day sap xep tang dan la: ');

       for i:=1 to n do write(A[i],' ');

       writeln;

       write('   Day sap xep giam dan la: ');

       for i:=n downto 1 do write(A[i],' ');

       readln;

end.