Получить массив по правилу - Pascal ABC
Формулировка задачи:
Задан массив. Составить алгоритм и программу, которая выводит исходный массив и массив, полученный в результате выполнения требований задачи.
Получить часть а1, а2n, а2, а2n-1, a3, …, аn, an+1.
Решение задачи: «Получить массив по правилу»
textual
Листинг программы
var a:array[1..100] of integer; n,i,j,x:integer; begin randomize; repeat write('Введите половину размера массива от 1 до 50 n='); readln(n); until n in [1..50]; writeln('Исходный массив:'); for i:=1 to 2*n do begin a[i]:=random(100); write(a[i]:4); end; writeln; i:=2; while i<=2*n do begin x:=a[2*n]; for j:=2*n downto i+1 do a[j]:=a[j-1]; a[i]:=x; i:=i+2; end; writeln('Перестановка:'); for i:=1 to 2*n do write(a[i]:4); end.