Составьте программу, которая выполняет массив а (1 ... 10) случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый элемент со вторым, третий с четвертым и т. д.

Выведите на экран исходный и полученный массивы.

Program swap;

const

N = 10;

var

a: array [1 ... N] of integer;

i, temp: integer;

begin

randomize;

writeln ('исходный массив: ') ;

for i : = 1 to N do

begin

a[i] : = Random (10) ;

write (a[i], ' ') ;

end;

writeln;

i : = 1;

while i < = 9 do

begin

temp : = a[i];

a[i] : = a[i+1];

a[i+1] : = temp;

i : = i + 2;

end;

writeln ('полученный массив: ') ;

for i : = 1 to N do

write (a[i], ' ') ;

end.