заполнить массив из 10 элементов случайными числами в интервале -10 10
и отсортировать их по убыванию. На языке Pascal

Var a:array[1..10] of Integer ;b,i,k,f:integer;Begin WriteLn('Исходный массив');For i:= 1 to 10 dobegina[i]:=Random(20)-10;Write(a[i]:3);end;For k:=1 to 9 dobeginFor i:= 1 to 9 dobegin if a[i]< a[i+1] thenbeginb:=a[i];a[i] := a[i+1];a[i+1]:=b;end;end;end;WriteLn;WriteLn('Итоговый массив');For i:= 1 to 10 doWrite(a[i]:3);end.