1). Дан массив из n чисел (n четное). Написать программу миняющую местами элементы с четными и нечетными номерами 2). Дан массив из n чисел. Написать программу циклически сдвигающую элементы массива на 1 позицию вправо (7,8,9,10,15,14; 14,7,8,9,10,15)

1) program zz1;

const n = 40; / /задаем количество элементов в массиве

var i, j:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (201);

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n-1 do

if i mod 2 = 1 then begin j:=m[i]; m[i]:=m[i+1]; m[i+1]:=j; end;

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

end.

2) program zz1;

const n = 40; / /задаем количество элементов в массиве

var i, j:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (201);

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

j:=m[n];

for i:=n downto 2 do

m[i]:=m[i-1];

m[1]:=j;

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

end.