заданы 2 одномерных массива. Сформировать третий из элементов с нечетными индексами обоих массивов и положительных элементов второго массива

Просто мне так удобнее было. Можно конечно и 3n сделать, или 15

Паскаль позволяет записать в объявлении массива границу в виде [1..3*n]

Нет, скорее всего не позволяет. Поэтому я и записал 50, чтобы сильно не париться, но там 15 вполне хватить должно

Pascal.ABC точно позволяет. Проверено лично.

Конечно, если предварительно n объявлено константой

const n=5;vari,q:integer;a:array [1..n] of integer;b:array [1..n] of integer;c:array [1..50] of integer;beginwriteln ('Заполните первый массив');for i:=1 to n doread (a[i])                      ;writeln ('Заполните второй массив') ;for i:=1 to n doread (b[i]);for i:=1 to n do beginif i mod 2<>0 then begin q:=q+1;c[q]:=a[i]; q:=q+1; c[q]:=b[i]; end; end;for i:=1 to n do if b[i]>0  then begin   q:=q+1;   c[q]:=b[i];   end; if q=0  then writeln ('условие не выполняется')  else beginfor i:=1 to q dowrite (' ',c[i]);endend.P.s. Вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. Можно эту константу поменять, это все на ваше усмотрение.P.p.s. Программа написана на Pascal ABC.