Заполнить массив из 10-ти элементов случайными числами из интервала от [-40;40], вывести на экран и расположить числа в порядке убывания значений элементов.
Ответ оставил: Mrlolkinpopkin3312
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 ...