Заполнить массив из 10-ти элементов случайными числами из интервала от [-40;40], вывести на экран и расположить числа в порядке убывания значений элементов.

Var  a:array[1..10] of integer;  i,j,k:integer;Begin  for i:= 1 to 10 do  Begin    a[i]:=random(81)-40;    write(a[i],' ');  End;  Writeln;  for i:= 1 to 10 do    for j:= 1 to 9 do      if a[j]>a[j+1] then      Begin        k:=a[j];        a[j]:=a[j+1];        a[j+1]:=k;      End;  for i:= 10 downto 1 do  write(a[i],' ');End.  

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016begin  var a:=ArrRandom(10,-40,40); a.Println;  a.SortedDescending.Printlnend.Тестовое решение:20 -32 1 3 0 21 -14 21 32 -632 21 21 20 3 1 0 -6 -14 -32