program XuLyDaySo;

const
  MAX_SIZE = 15;

var
  arr: array[1..MAX_SIZE] of real;
  n, i: integer;
  tongAm, tongChan, soChan: real;
  max, min: real;

procedure NhapDaySo;
begin
  writeln('Nhap so luong phan tu (0 < n <= 15): ');
  readln(n);

  while (n <= 0) or (n > 15) do
  begin
    writeln('Nhap lai so luong phan tu: ');
    readln(n);
  end;

  writeln('Nhap gia tri cho tung phan tu: ');
  for i := 1 to n do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;
end;

procedure TinhTongAm;
begin
  tongAm := 0;
  for i := 1 to n do
    if arr[i] < 0 then
      tongAm := tongAm + arr[i];
end;

procedure TinhTongTrungBinhCacPhanTuChan;
begin
  tongChan := 0;
  soChan := 0;
  for i := 1 to n do
    if (i mod 2 = 0) then
    begin
      tongChan := tongChan + arr[i];
      soChan := soChan + 1;
    end;
end;

procedure TimMaxMin;
begin
  max := arr[1];
  min := arr[1];
  for i := 2 to n do
  begin
    if arr[i] > max then
      max := arr[i];
    if arr[i] < min then
      min := arr[i];
  end;
end;

procedure SapXepGiamDan;
var
  j: integer;
  temp: real;
begin
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if arr[i] < arr[j] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
end;

procedure InKetQua;
begin
  writeln('Tong cac phan tu am: ', tongAm:8:2);
  if soChan > 0 then
    writeln('Tong cac phan tu chan: ', tongChan:8:2, ' Trung binh cong: ', (tongChan / soChan):8:2)
  else
    writeln('Khong co phan tu chan trong day.');
  writeln('Phan tu lon nhat: ', max:8:2);
  writeln('Phan tu nho nhat: ', min:8:2);
  writeln('Day sap xep giam dan: ');
  for i := 1 to n do
    write(arr[i]:8:2, ' ');
end;

begin
  NhapDaySo;
  TinhTongAm;
  TinhTongTrungBinhCacPhanTuChan;
  TimMaxMin;
  SapXepGiamDan;
  InKetQua;

  readln;
end.