Teisėjai

program Teisejai;
    type Masyvas = array [1..100] of integer;
    var
        A : Masyvas;
        n, i, sk, k, j, elem, vidurkio_ciklas, skaiciai : integer;
        vidurkis : real;
begin
    Write('Įveskite teisėjų skaičių: ');
    ReadLn(n);

    for i:= 1 to n do
    begin
        Write('Įveskite ', i, '-ojo teisėjo taškus:  ');
        ReadLn(sk);
        A[i] := sk;
    end;

    WriteLn();
    WriteLn('Masyve yra ', n, ' nariai.');

    for i:= 1 to n do
        Write (A[i]: 5);

        // Rykiuoti nuo didžiausio iki mažiausio.

    WriteLn();
    WriteLn('Nuo didžiausio iki mažiausio:');

    for i:= 1 to n-1 do
    begin
        k := i;

        for j:=  i + 1 to n do
            if A[j] > A[k] then k:=j;

        elem := A[i];
        A[i] := A[k];
        A[k] := elem;
    end;

    for i:= 1 to n do
        Write (A[i]: 5);

        // Ištrinti mažiausią elementą.

    n := n - 1;

    WriteLn();
    WriteLn('Ištrintas mažiausias elementas.');

    for i:= 1 to n do
        Write (A[i]: 5);

        // Rykiuoti nuo mažiausio iki didžiausio.

    WriteLn();
    WriteLn('Nuo mažiausio iki didžiausio:');

    for i:= 1 to n-1 do
    begin
        k := i;

        for j:=  i + 1 to n do
            if A[j] < A[k] then k:=j;

        elem := A[i];
        A[i] := A[k];
        A[k] := elem;
    end;

    for i:= 1 to n do
        Write (A[i]: 5);

        // Ištrinti didžiausią elementą.

    n := n - 1;

    WriteLn();
    WriteLn('Ištrintas didžiausias elementas.');

    for i:= 1 to n do
        Write (A[i]: 5);

        // Skaičiuoti vidurkį.

    for vidurkio_ciklas := 1 to n do
        skaiciai := skaiciai + A[vidurkio_ciklas];

    vidurkis := skaiciai / n;

    WriteLn();
    WriteLn();
    WriteLn('Taškų suma: ', skaiciai);
    WriteLn('Vidurkis: ', vidurkis:8:2);

    ReadLn();
end.