Народ не пойму в чём ошибка, вроде тютельку в тютельку делал. Вот условие задачи:

Дано два двумерных массива X(NхM1), Y(NxM2). Cформировать

массив Z(Nx(M1+M2)), таким образом, чтобы сначала располагались M1 столбцов

массива X, затем M2 столбцов массива Y.

Вот мой код:

Const n=5;
var
i,q:integer;
a:array [1..n] of integer;
b:array [1..n] of integer;
c:array [1..50] of integer;
begin
writeln ('Заполните первый массив');
for i:=1 to n do
read (a[i])                      ;
writeln ('Заполните второй массив') ;
for i:=1 to n do
read (b[i]);
for i:=1 to n do begin
if 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 begin
for i:=1 to q do
write (' ',c[i]);
end
end.

P.s. Вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. Можно эту константу поменять, это все на ваше усмотрение.
P.p.s. Программа написана на Pascal ABC.

Принтер — это устройство, назначение которого переносить текст или изображения на бумагу и прочие твердые носители. Это простое определение, но, чтобы понять, как работает принтер, следует прочитать эту статью. Здесь описано, какие бывают виды печатающей техники, устройство и назначение прибора. А также рассмотрим их типы и классификацию.

Создание первого принтера началось еще в 1822 году. После проведения чертежей был разработан первый прототип. На это ушло 12 лет. Первая модель была создана Чарльзом Беббиджем. На тот момент прибор назывался разносной машиной. Он представлял собой механический компьютер со встроенной печатной машиной. Обычно его использовали в банках и при навигации. Машина была делать простые вычисления, выводя результаты на бумагу. Первая модель занимала много места, а состояла более, чем из 1 тыс. деталей.

Объяснение: