rik

program Masyvas_Rykiavimas;
    type Masyvas = array [1..100] of integer;
    var
        A : Masyvas;
        n, i, sk, k, j, elem : integer;
begin
    WriteLn('Labas');
    WriteLn;
    Write('Áveskite nariø kieká: ');
    ReadLn(n);

    for i:= 1 to n do
    begin
        Write('Áveskite ', i, '-àjá skaièiø: ');
        ReadLn(sk);
        A[i] := sk;
    end;

    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; // > === rikiuoti nuo didziausio iki maziausio, < === atvirksciai

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

    WriteLn;
    WriteLn('Masyvo nariø yra ', n);
    for i:=1 to n do
        Write(A[i]:5);

    Readln;
end.