Даны два массива а(10) и b(10). сформируйте массив с(10), предварительно определив его длину, каждый четный по номеру элемент которого равен сумме соответствующих элементов из а и в, а нечетный - их разности. , ! ​

1)
Замечание: не очень понятно какое число надо делить на 3. В программе на 3 делится первый элемент из каждой пары.
const n=12;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n div 2 do
 begin
 a[2*i-1]:=2*i;
 a[2*i]:=a[2*i-1] div 3;
 end;
for i:=1 to n do write(a[i],' ');
writeln;
end.

Результат:
2 0 4 1 6 2 8 2 10 3 12 4

2)
const n=12;
var b:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
 begin
 b[i]:=random(71)-10;
 write(b[i]:4);
 end;
writeln;
for i:=1 to n do
 begin
 b[i]:=b[i]-i;
 write(b[i]:4);
 end;
writeln;
end.

Пример:
17 54 4 -7 31 33 -6 27 14 59 0 43
16 52 1 -11 26 27 -13 19 5 49 -11 31

Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.