// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a.SortedDescending.Println;
end.
<u><em>Тестовое решение</em></u>
n=15
-64 -10 56 -78 35 -53 61 -12 17 29 -45 -13 73 24 1
73 61 56 35 29 24 17 1 -10 -12 -13 -45 -53 -64 -78
procedure Pause(i:integer);
begin
if i=1
then writeln('нажать enter')
else writeln('press enter');
readln;
end;
begin
Pause(1);
Pause(2);
end.
Результат:
нажать enter
press enter
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var a:=ArrRandom(10,1,100); a.Println;
var imax:=a.IndexMax;
var imin:=a.IndexMin;
Swap(a[imax],a[imin]); a.Println
end.
<u>Пример</u>
65 47 11 68 51 83 90 73 4 43
65 47 11 68 51 83 4 73 90 43
Кому как.
холодно, жарко -субъективные понятия.