program phuongt;
uses crt;
  var A: array[1..500] of real;
        n, i, j: integer;
        t, k: real;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        t:=0;
        writeln('a.');
        for i:=1 to n do
        begin
                write('A[', i, '] = '); readln(A[i]);
                if A[i] mod 2 = 0 then t:=t+A[i];
        end;
        writeln('b. Tong = ', t:3:2);
        t:=t/n;
        writeln('TB cong = ', t:3:2);
        for i:=1 to n-1 do
              for j:=1+i to n do if A[i]<A[j] do
              begin
                       k:=A[i];
                       A[i]:=A[j];
                       A[j]:=k;
              end;
        write('c. Sap xep day theo chieu giam dan: ');
        for i:=1 to n do write(A[i]:3);
        readln
end.

program vd1; var i,n :Byte; ta, tb, b, c, d :real; a: array[1..15] of real ; begin write(' nhập số lượng phần tử n ='); readln(n); Writeln('Nhap mang a: '); for i:=1 to n do begin write('a[',i,']= '); readln(a[i]) end; ta:=0; for i:=1 to n do if a[i] <0 then ta= ta + a[i] ; { tính tổng âm} tc:= 0; t:=1; for i:=1 to n do if i mod 2 =0 then begin t= t+1 ; tc= tc + a[i] ; {tính tổng phần tư chẵn} end; ttc = tc/t ; { trung bình phần tử chẵn} max:= a[1]; for i=2 to n do if max < a[i] then max =a[i] ; { tìm phần tử lớn nhất} min:= a[1]; for i=2 to n do if min > a[i] then min =a[i] ; { tìm phần tử nhỏ nhất} for i=2 to n do for j=n down to i do if (a[j]> a[j-1]) then begin b:= a[j-1] ; a[j-1]:=a[j]; a[j]:=b; end; {sắp xếp các phần tử giảm dần về giá trị} for i=1 to n then begin write( a[i]); writeln; end; {in ra theo chiều dọc mảng} end. hết nếu muốn in theo chiều ngang for i=1 to n then begin write( a[i]); write(' '); { dấu cách giữa 2 giấu ' } end;