2:don vi chuong trinh

   unit MMC;

interface

     uses crt;

     type mang=array[1..100] of integer;

     procedure nhap(var a:mang;var n:integer);

     function tong(a:mang;n:integer):integer;

     function trungbinh(a:mang;n:integer):real;

     function max(a:mang;n:integer):integer;

     function min(a:mang;n:integer):integer;

     procedure sapxep(var a:mang;n:integer);

     function doixung(a:mang;n:integer):boolean;

implementation

     procedure nhap(var a:mang;var n:integer);

     var i:integer;

     begin

     clrscr;

       write('nhap so phan tu n:');readln(n);

       writeln('nhap cac phan tu');

         for i:= 1 to n do

         begin

            write('a[',i,']=');readln(a[i]);

            end;

            end;

function tong(a:mang;n:integer):integer;

         var s,i:integer;

         begin

         s:=0;

         for i:=1 to n do s:=s+a[i];

         tong:=s;

         end;

function trungbinh(a:mang;n:integer):real;

         var s,i:integer;

             tb:real;

       begin

       {s:=0;

       for i:= 1 to n do

       tb:=(s+a[i])/n; }

       trungbinh:=tong(a,n)/n

       end;

function max(a:mang;n:integer):integer;

       var k,i:integer;

     begin

     k:=a[i];

     for i:= 1 to n do

     if k<a[i] then

     k:=a[i];

     max:=k;

     end;

function min(a:mang;n:integer):integer;

      var k,i:integer;

      begin

         k:=a[i];

       for i:= 1 to n do

       if k>a[i] then

      k:=a[i];

      min:=k;

      end;

  procedure sapxep(var a:mang;n:integer);

        var i,j,tg:integer;

        begin

        for i:= 1 to n-1 do

        for j:=i+1 to n do

        if a[i]>a[j] then begin

        tg:=a[j];

        a[j]:=a[i];

        a[i]:=tg;

        end;

        writeln('mang sau khi xap xep la:');

        for i:= 1 to n do

        writeln(a[i] ,' ');writeln;

        end;

  function doixung(a:mang;n:integer):boolean;

       var i:integer;

       kt:boolean;

       begin

       kt:=true;

       for i:= 1 to trunc(n/2) do

       if a[i]<>a[n-i+1] then

       kt:=false;

       doixung:=kt;

       end;

       end.

program sd_unit;

 uses MMC,crt;

 var a:mang;

     n:integer;

 begin

 clrscr;

   nhap(a,n);

   writeln(‘tong la:’,tong(a,n));

   writeln(‘trung binh la:’,trungbinh(a,n));

   writeln(max la:’,max(a,n));

   writeln(‘min la:’,min(a,n));

   sapxep(a,n);

   writeln(‘doi xung la:’,doixung(a,n));

   readln;

   end.