Заданы два массива A и B

[maxim1592]

Заданы два массива A и B. В каждом из этих массивов нет повторяющихся элементов. Построить пересечение заданных массивов (то есть получить в порядке возрастания все числа, принадлежащие двум массивам одновременно)

[ZX Spectrum-128]

Собственные наработки?

[maxim1592]

нету, не знаю как прописать....

[ZX Spectrum-128]

Тогда почитайте теорию про массивы:

http://www.pascal.helpov.net/index/o...al_programming

[maxim1592]

Program pr;
Var
   a, b, c: array [1..100] of integer;
   I, n: byte;
Begin
   Write ('введите размерность массива:');
   Readln(n);
   For i:=1 to n do
      Readln (a[i]); { ввод массива a}
   For i:=1 to n do
      Readln (b[i]); { ввод массива b}
   For i:=1 to n do
"
в это месте должна программа строить пересечение массивов(т.е. в порядке возрастания
"
      write (c[i],' '); { вывод массива с }
end.

помогите дописать программу

[Serge_Bliznykov]

я бы так написал:

Program pr;
Var
   a, b, c: array [1..100] of integer;
   i, n, j, KC: byte;
Begin
   Write ('введите размерность массива:');
   Readln(n);
   For i:=1 to n do
      Readln (a[i]); { ввод массива a}
   For i:=1 to n do
      Readln (b[i]); { ввод массива b}

   KC := 0; {количество найденный пересечений}
   For i:=1 to n do begin
      j := 1;
      while (j<=n) and (a[i]<>b[j]) do Inc(j);
      if j<=n then {число найдено - добавляем его в массив C}  
        begin
           Inc(KC);
           c[KC] := a[i];  {или c[KC] := b[j]; - это неважно, т.к. a[ i ] и b[ j ] равны}
        end;
      end;   

   {вывод результата}
   if KC = 0 then WriteLn('Таких чисел нет!')
   else begin
     Write('Массив пересечений: ');
     for i:=1 to KC do
        write(c[i],' '); { вывод массива с }
   end;
   WriteLn;
end.

[maxim1592]

спасибо большое

[Serge_Bliznykov]

Сообщение от maxim1592

спасибо большое

пожалуйста.


p.s. учтите, что в данном случае числа не будут в порядке возрастания, как того требует задание. Более того, подозреваю, что авторы задачи предполагали, что исходные массивы будут отсортированы. Ну тогда задача может быть решена более эффективным (с точке быстродействия) способом (не нужно будет перебирать каждый элемент массива, проверяя его наличие во втором массиве.)
Впрочем, возможно, что достаточно (чтобы соблюсти условия задачи) будет просто отсортировать массив C