Создать массив из 15 элементов. Заполнить его случайными числами от 0 до 50. Поменять местами первый и последний, восьмой и седьмой тоже. Вывести на экран исходный массив. ПАСКАЛЬ

var a: array[0..15] of Integer;i,z,x: Integer;beginfor i:=0 to 14 dobegina[i]:=random(50);writeln('Число ',i+1,': ',a[i]);end;z:=a[0];x:=a[14];a[0]:=x;a[14]:=z;z:=a[6];x:=a[7];a[6]:=x;a[7]:=z;for i:=0 to 14 dobeginwriteln('Число ',i+1,': ',a[i]);end;end.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(15,0,50); a.Println;  Swap(a[0],a[14]); Swap(a[6],a[7]); a.Printlnend.Пример15 47 4 20 36 42 27 40 2 45 26 26 48 25 1717 47 4 20 36 42 40 27 2 45 26 26 48 25 15