Создать массив из 15 элементов. Заполнить его случайными числами от 0 до 50. Поменять...

Question

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

Answer 1

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.Println
end.

Пример
15 47 4 20 36 42 27 40 2 45 26 26 48 25 17
17 47 4 20 36 42 40 27 2 45 26 26 48 25 15

Answer 2

Var a: array[0..15] of Integer;
i,z,x: Integer;
begin
for i:=0 to 14 do
begin
a[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 do
begin
writeln('Число ',i+1,': ',a[i]);
end;
end.