В массиве после каждого элемента вставить такой же - Pascal

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

дан массив. после каждого элемента вставте такой же.


textual

Код к задаче: «В массиве после каждого элемента вставить такой же - Pascal»

uses crt;
const nmax=50;
var a:array[1..nmax*2] of integer;
    n,c,i,j:integer;
begin
randomize;
repeat
write('Размер массива [2..',nmax,'] n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-20+random(41);
  write(a[i]:4);
 end;
writeLn;
i:=2*n;
while i>1 do
 begin
  a[i]:=a[i div 2];
  a[i-1]:=a[i div 2];
  i:=i-2;
 end;
writeLn('Массив после вставок');
for i:=1 to 2*n do
write(a[i]:4);
end.
Эта работа вам не подошла?

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


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.167 из 5

Источник