Сформировать массив из 15 произвольных чисел. Поменять местами элементы, стоящие…

program prim2; uses crt; var i, n, r: integer; a: array[1… 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln (n); for i: =1 to n do begin {Получаем случайные числа и выводим их на экран.} a[i]: =random (45) -22; write (a[i],'); end; {В полученном массиве меняем соседние элементы.} i: =1; {Пока I <= N-1.} while i <= n-1 do begin {Меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {Увеличиваем индекс на два.} inc (i,2); end; {Распечатываем измененный массив.} for i: =1 to n do write (a[i],'); readkey; end.