zadah41.PAS

{* Задача 41 *}

Unit ZADAH41;
Interface
Implementation
Begin
 writeln('

Объединить упорядоченные по возрастанию массивы A и B размера N=5 в массив C размера N=10 с элементами, упорядоченными по возрастанию

'
);
End.

Program array63;

Uses zadah41.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Type {* Создание новых типов данных *}
  mas = Array[1..100] Of integer;
Var {* В работе нам потребуются переменные: *}
  i  : integer;
  j  : integer;
  k  : integer;
  n  : integer;
  f1 : integer;
  f2 : integer;
  l  : integer;
  c  : integer;
  d  : real;
  g  : real;
  ar : mas;
  br : mas;
  cr : mas;
Begin
  clrscr; {* Очищаем экран *}
  write('Введите длину массива A: ');
  readln(n);
  Begin
    randomize;
    For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
      ar[i] := random(201) - 100;
  End;
  write('Введите длину массива B: ');
  readln(l);
  Begin
    randomize;
    For j := 1 To l Do {* Цикл для j => [1 .. l] *}
      br[j] := random(201) - 100;
  End;
  For i := 1 To n - 1 Do {* Увеличиваем i от 1 до n с шагом 1 *}
    For j := 1 To n - i Do {* Переменная j увеличивается с 1 до n *}
      If ar[j] > ar[j + 1] Then
      Begin
        c := ar[j + 1];
        ar[j + 1] := ar[j];
        ar[j] := c;
      End;
  For i := 1 To n - 1 Do {* Цикл для i => [1 .. n] *}
    For j := 1 To n - i Do {* Переменная j увеличивается с 1 до n *}
      If br[j] > br[j + 1] Then
      Begin
        c := br[j + 1];
        br[j + 1] := br[j];
        br[j] := c;
      End;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    write(ar[i] : 3, '|');
  writeln; {* Пустая строка *}
  For j := 1 To l Do {* Цикл для j => [1 .. l] *}
    write(br[j] : 3, '|');
  writeln; {* Вывод пустой строки *}
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    cr[i] := ar[i];
  For i := n + 1 To n + l Do
  Begin
    inc(k); {* Прибавим к k единицу *}
    cr[i] := br[k];
  End;
  For i := 1 To (n + l) - 1 Do {* Увеличиваем i от 1 до (n с шагом 1 *}
    For j := 1 To (n + l) - i Do {* Переменная j увеличивается с 1 до (n *}
      If cr[j] > cr[j + 1] Then
      Begin
        c := cr[j + 1];
        cr[j + 1] := cr[j];
        cr[j] := c;
      End;
  For i := 1 To n + l Do {* Увеличиваем i от 1 до n с шагом 1 *}
    write(cr[i] : 3, '|');
End.