Pascal. 3 массива.

[Stilet]

Ведь n и k - это же просто счетчики...или нет?

Да это счетчики. Первый считает элементы исходного массива, а второй выходного.
Если учесть что выходной массив изменяется не на каждой итерации, то k приходится изменять (увеличивая пузо массива) только при условии найденности нужных элементов во входных массивах.
Проще говоря два счетчика для двух разных массивов.

[Базиля]

Brian Spilner

этот параметр определяет число элементов

да

Сам он не является элементом массива

к элементу массива обращаемся указывая его имя(допустим А) и в квадратных скобках его индекс:

a[i]

этим самым мы обратились к i'ому элементу массива a.

[Brian Spilner]

Дописал первую программу, в соответствии с корректировками. Все работает.
Вот кусочек, где непосредственная выборка идет.
S1 - счетчик, который считает нужные элементы и в первом и во втором массивах.
Собственно его увеличение при нахождении новых элементов понятно, а строка c[S1]:=a[i] - это, получается, что некоторый i'тый элемент массива а, записываем, как некий S1'ый элемент массива с??? Так выходит? А потом, когда пробегаем по массиву b, каждый j'ый элемент, как опять некий S1'ый в с массив? Верно?

S1:=0;                              {Выборка элементов}
     for i:=1 to n do
      if (a[i]<0) then
       begin
        S1:=S1+1;
        c[S1]:=a[i];
       end
      else
       S1:=S1+0;
        for j:=1 to k do
          if (b[j]<0) then
           begin
            S1:=S1+1;
            c[S1]:=b[j];
           end
          else
           S1:=S1+0;
            if (S1>0) then
             begin
              writeln('Готовый массив');       {результат №1}
               for i:=1 to S1 do
                write(c[i],' ');
             end
            else                               {альтернативный результат}
             writeln('В обоих массивах нет отрицательных элементов');

[Stilet]

Так выходит?

Так.

А потом, когда пробегаем по массиву b, каждый j'ый элемент, как опять некий S1'ый в с массив? Верно?

Помоему что-то ты тут намутил...
Не ну вообще так то оно так но код некрасиво написан.
Вот зачем ты S1:=S1+0; написал? Это действие все равно оптимизатор уберет как мусорное.
Если уж так хочешь писать то:

S1:=0;                              {Выборка элементов}
 {Первый цикл}
     for i:=1 to n do
      if (a[i]<0) then  begin
        S1:=S1+1;
        c[S1]:=a[i];
       end;

 {Второй цикл}
     for j:=1 to k do
      if (b[j]<0) then   begin
            S1:=S1+1;
            c[S1]:=b[j];
       end

            if (S1>0) then
             begin
              writeln('Готовый массив');       {результат №1}
               for i:=1 to S1 do
                write(c[i],' ');
             end
            else                               {альтернативный результат}
             writeln('В обоих массивах нет отрицательных элементов');

Я тебе больше скажу. Правильнописание программ в паскале и Делфи просит указывать массивы не константами а спецфункциями:

for i:=low(a) to High(a) do

или

for i:=1 to Length(a)-1 do

Это безопасный код, который никогда не выйдет за рамки массива, применяй такие функции, и твои проги будут надежнее.

[Brian Spilner]

Ясно. Спасибо большое! Обязательно возьму на заметку!!! Просто это задачи институтские и там во входных данных массив с 10 элементами и не более. Во всем разобрался в принципе!