Составьте программу, Которая формирует массив из десяти случайных чисел от -45 до 45 и меняет местами значение первого и последнего элементов

type mas= Array [1..10] of integer;var i,M:integer;a:mas;beginrandomize;for i:=1 to 10do beginA[i]:=random (-45,45);write(A[i],' ');end;writeln();A[1]:=MA[i]:=A[10]; A[10]:=M;for i:=1 to 10do write(A[i],' ');end.

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(10,-45,45); a.Println;  Swap(a[0],a[9]); a.Printlnend.Пример32 -1 21 17 13 11 -7 14 -7 44 -1 21 17 13 11 -7 14 -7 32