Построение массива по правилу - Turbo Pascal

Формулировка задачи:

Дан массив b1, b2,…, b2m. Написать программу построения массива с элементами, соответственно равными: b2m, b1, b2m-1, b2, …, bm+1, bm.

Код к задаче: «Построение массива по правилу - Turbo Pascal»

textual
const nmax=100;
var b:array[1..nmax] of integer;
    m,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Введите половину размера массива от 1 до ',nmax div 2,' m=');
readln(m);
until m in[1..nmax div 2];
writeln('Исходный массив:');
for i:=1 to 2*m do
 begin
  b[i]:=random(100);
  write(b[i]:4);
 end;
writeln;
i:=1;
while i<2*m do
 begin
  x:=b[2*m];
  for j:=2*m downto i+1 do
  b[j]:=b[j-1];
  b[i]:=x;
  i:=i+2;
 end;
writeln('Перестановка:');
for i:=1 to 2*m do
write(b[i]:4);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 3.455 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы