Получить массив по правилу - 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.

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы