Дублирование элементов

@handkock · Регистрация: 15.10.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте. У меня возник такой вопрос. Мне дана определённая последовательность чисел(одномерный массив). Что значит продублировать какой-либо её элемент ? Можно пожалуйста пример в виде процедуры или функции. Заранее спасибо.

@Puporev · 24.10.2013, 18:40

Сообщение от handkock

Что значит продублировать какой-либо её элемент?

Это значит вставить перед ним или после него такой же.

Добавлено через 8 минут

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax+1] of integer;
    n,i,j,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
repeat
write('Введите номер элемента для дублирования k=');
readln(k);
until k in [1..n];
n:=n+1;
for i:=n downto k+1 do
a[i]:=a[i-1];
a[k]:=a[k+1];
writeln('Дублирование элемента номер ',k);
for i:=1 to n do
write(a[i]:4);
readln
end.

@handkock · 24.10.2013, 19:15 **[ТС]**

Puporev, Спасибо большое, а то же самое, только с удалением не подскажите ?

@Puporev · 24.10.2013, 19:20

Удалять это не увеличивать массив а сжимать

Pascal

if k=n then n:=n-1
else
 begin
   for i:=k to n-1 do
   a[i]:=a[i+1];
   n:=n-1;
 end;

@handkock 4 / 2 / 1 Регистрация: 15.10.2013 Сообщений: 94
		1
	Дублирование элементов 24.10.2013, 18:27. Показов 2215. Ответов 3 Метки нет (Все метки) Здравствуйте. У меня возник такой вопрос. Мне дана определённая последовательность чисел(одномерный массив). Что значит продублировать какой-либо её элемент ? Можно пожалуйста пример в виде процедуры или функции. Заранее спасибо. 0

@handkock 4 / 2 / 1 Регистрация: 15.10.2013 Сообщений: 94
	24.10.2013, 19:15 [ТС]	3
	Puporev, Спасибо большое, а то же самое, только с удалением не подскажите ? 0

	24.10.2013, 19:20