{* Задача 418 *}

Unit ZADACH418;
Interface
Implementation
Begin
 writeln('Выполнить действия над массивами. Программа должна обрабатывать любые числа. Предельная размерность массивов до 10, реальная размерность N. Программа должна предъявлять исходные и новые массивы: Сдвинуть вправо на две позиции содержимое массива Х и заполнить им массив Y. ');
End.

Program zadach418;

Uses zadach418.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a   : Array[1..10] Of real;
  i   : integer;
  n   : integer;
  c   : integer;
  j   : integer;
  min : real;
Begin
  randomize;
  writeln('vvedite chislo elementov massiva');
  readln(n);
  For I := 1 To n Do {* Увеличиваем I от 1 до n с шагом 1 *}
  Begin
    a[i] := random(1000) / 100;
    write(' ', a[i] : 7:5);
  End;
  writeln; {* Вывод пустой строки *}
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
  Begin
    a[i] := a[i + 2];
    a[i + 2] := a[i];
    write(a[i] : 10 : 5);
  End;
  readln; {* Ждем нажатия Enter *}
End.