Ответы: 1
Диана Ластовка
2017-12-08 04:08
For i:=1 to n-1 do for j:=i+1 to n do if a [ i ] < a [ j ] then begin b:=a [ i ]; a [ i ] := a [ j ] ; a [ j ] := b; end; вроде так