{* Задача 168 *}

Unit ZADACH168;
Interface
Implementation
Begin
 writeln('Заданные векторы Х(N) и Y(N) преобразовать по правилу: большее из Xi и Yi принять в качестве нового значения Xi, а меньшее - в качестве нового значени Yi.');
End.

Program zadach168;

Uses zadach168.pas; {* Эту строку можно удалить *}
Uses CRT; {* Подключаем внешние файлы *}
Const {* Постоянные значения *}
  N = 10;
Type {* Создание новых типов данных *}
  ArrayN = Array [1..N] Of Integer;
Var {* Необходимые переменные *}
  X      : ArrayN;
  Y      : ArrayN;
  i      : Integer;
  Number : Integer;
Begin
  Clrscr; {* Стираем всё с экрана *}
  Randomize;
  For i := 1 To N Do {* Цикл для i => [1 .. N] *}
  Begin
    X[i] := - 1000 + Random(2000);
    Write(X[i], ' ');
  End;
  Writeln('');
  For i := 1 To N Do {* Цикл для i => [1 .. N] *}
  Begin
    Y[i] := - 1000 + Random(2000);
    Write(Y[i], ' ');
  End;
  Writeln('');
  For i := 1 To N Do {* Цикл для i => [1 .. N] *}
    If Y[i] > X[i] Then
    Begin
      Number := X[i];
      X[i] := Y[i];
      Y[i] := Number;
    End;
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
  Begin
    X[i] := - 1000 + Random(2000);
    Write(X[i], ' ');
  End;
  Writeln('');
  For i := 1 To N Do {* Увеличиваем i от 1 до N с шагом 1 *}
  Begin
    Y[i] := - 1000 + Random(2000);
    Write(Y[i], ' ');
  End;
  Readln; {* Ждем нажатия Enter *}
End.