zadah17.PAS

{* Задача 17 *}

Unit ZADAH17;
Interface
Implementation
Begin
 writeln('

Дан массив размера A размера N вывести его элементы в порядке:

A1, A2, AN, AN-1 A3, A4, AN-2, AN-3, …

'
);
End.

Program zadah17;

Uses zadah17.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Type {* Типы переменных *}
  mas = Array[1..100] Of integer;
Var {* Необходимые переменные *}
  i  : integer;
  k  : integer;
  n  : integer;
  f1 : integer;
  f2 : integer;
  a  : integer;
  d  : integer;
  ar : mas;
  br : mas;
  cr : mas;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('Введите длину массива: ');
  readln(n);
  Begin
    randomize;
    For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
      ar[i] := 100 - random(201);
    For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
      write(ar[i] : 3, '|');
    writeln; {* Пропускаем одну строку *}
  End;
  a := n Div 2;
  For i := 1 To n - a Do {* Цикл для i => [1 .. n] *}
  Begin
    br[1 + k] := ar[i];
    br[2 + k] := ar[i + 1];
    inc(k, 4); {* k, 4++ *}
    inc(i); {* Увеличиваем i на 1 *}
  End;
  k := 0;
  For i := n Downto n - a Do
  Begin
    br[3 + k] := ar[i];
    br[4 + k] := ar[i - 1];
    inc(k, 4); {* k, 4++ *}
    inc(i, - 1); {* i, - 1++ *}
  End;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
    write(br[i] : 3, '|');
End.