Bai tong hop 13-03-2017

uses crt;
var a:array[1..100] of integer; // Khai bao mang co toi da 100 phan tu
    i,j,dem1,dem2,max,tong1,tong2,t:integer;
    tbc:real;
begin
    clrscr;
    write('Nhap so phan tu mang: ',);
    readln(n);
    for i:=1 to n do
        begin
            write('Nhap gia tri a[',i,']: ');
            readln(a[i]);
        end;

    // Tim phan tu lon nhat cua day a[i]
    max:=a[1];
    for i:=2 to n do
        if max < a[i] then max:=a[i];

    // Tinh tong phan tu co gia tri le
    tong1:=0;
    for i:=1 to n do
        if (a[i] mod 2 <> 0) then tong1:=tong1+a[i];

    // Nhap k, tinh TBC cac phan tu chia het cho k
    write('Nhap k: '); readln(k);
    dem:=0; tong2:=0;
    for i:=1 to n do
        if (a[i] mod k = 0) then
            begin
                dem1:=dem1+1;
                tong2:=tong2+a[i];
            end;
    tbc:=tong2/dem1;

    // Dem xem day a[i] co bao nhieu so chan
    dem2:=0;
    for i:=1 to n do
        if (a[i] mod 2 = 0) then dem2:=dem2+1;

    // Sap xep day tang dan
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if a[i] > a[j] then
                begin
                    t:=a[i];
                    a[i]:=a[j];
                    a[j]:=t;
                end;