1.Даны 2 массива А и В (элементы рандомятся) Как получит массив

1.program zz1;
const n = 10; //задаем количество элементов в массиве
var i, k:integer; // задаем переменные целого типа
a,b:array [1..n] of integer;
c:array [1..n*2] of integer;
begin
for i:=1 to n do // записываем в массив числа случайным образом
a[i]:=random(101);
for i:=1 to n do //выводим массив на экран
write(a[i], );
writeln; // переходим на новую строку для вывода ответа
for i:=1 to n do // записываем в массив числа случайным образом
b[i]:=random(101);
for i:=1 to n do //выводим массив на экран
write(b[i], );
writeln; // перебегаем на новую строку для вывода ответа
for i:=1 to n do
c[i]:=a[i];
k:=0;
for i:=n+1 to 2*n do
begin
inc(k);
c[i]:=b[k];
end;
for i:=1 to 2*n do //выводим массив на экран
write(c[i], );
end.
2.program zz1;
const n = 10; //задаем количество частей в массиве
var i, k:integer; // задаем переменные целого типа
a:array [1..n] of integer;
begin
for i:=1 to n do // записываем в массив числа случайным образом
a[i]:=random(101);
for i:=1 to n do //выводим массив на экран
write(a[i], );
writeln; // перебегаем на новейшую строчку для вывода ответа
for i:=1 to n-1 do
if a[i]=a[i+1] then k:=1;
if k=1 then write( в массиве есть однообразные рядом стоящие элементы ) else write( в массиве нет схожих рядом стоящих частей );
end.
3.program zz1;
const n = 10; //задаем количество частей в массиве
var i, k:integer; // задаем переменные целого типа
a:array [1..n] of integer;
begin
for i:=1 to n do // записываем в массив числа случайным образом
a[i]:=random(101);
for i:=1 to n do //выводим массив на экран
write(a[i], );
writeln; // перебегаем на новую строчку для вывода ответа
for i:=1 to n div 2 do
if a[i]lt;gt;a[n-i+1] then k:=1;
if k=1 then write( массив не является перевертышем ) else write( массив является перевертышем );
end.