A: Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент. Пример:Массив:1 2 3 4 5 6Результат:6 1 2 3 4 5B: Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и второй половине. Пример:Массив:1 2 3 4 5 6Результат:3 2 1 6 5 4

а)var a,b: array[1. . 6] of integer; i,c: integer; begin

for i:=1 to 6 do a[i]:=random(100); writeln(a); b:=a;

c:=a[6];

for i:=1 to 5 do a[i+1]:=b[i]; a[1]:=c; writeln(a);

end.

ч/з второй массив

б)var i:integer; an:array[1. . 10] of integer,a:array[1. . 10] of integer;

begin

randomize;

for i:=1 to 10 do a[i]:=random(100);

for i:=1 to 5 do an[6-i]:=a[i];

for i:=1 to 5 do an[11-i]:=a[i+5];

writeln("Получившийся массив:");

writeln(" ");

for i:=1 to 10 do write(an[i]," ");

end.