Заполнить массив из 10-ти элементов случайными числами из интервала от [-40;40], вывести его на экран. Располочить числа в порядке убывания значений.
Ответ оставил: Avgustina090
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)const N = 10;var a: array [1..N] of integer; i, j, b: integer;begin for i := 1 to N do a[i] := Random(81)...