Продублировать в исходном массиве элемент

@weeklp · Регистрация: 30.11.2019

На вход в первой строке подаются целые положительные числа K и N (K<=N) , а во второй строке массив из N вещественных чисел. Продублировать в исходном массиве элемент с номером K(элементы нумеруются от1 ).Вывести преобразованный массив в одной строке

@Puporev · 01.12.2019, 11:14

Pascal

var a:array[1..21] of integer;
    n,k,x,i:integer;
begin
randomize;
repeat
writeln('Введите размер массива от 2 до 20 и номер элемента для дублирования от 1 до',n-1);
readln(n,k);
until(n in [2..20])and(k in [1..n-1]);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:3);
 end;
writeln;
n:=n+1;
for i:=n downto k+1 do
a[i]:=a[i-1];
a[k]:=a[k+1];
writeln('Дублирование элемента с номером 0',k);
for i:=1 to n do
write(a[i]:3);
end.

@weeklp 0 / 0 / 0 Регистрация: 30.11.2019 Сообщений: 8
		1
	Продублировать в исходном массиве элемент 30.11.2019, 21:23. Показов 344. Ответов 1 Метки нет (Все метки) На вход в первой строке подаются целые положительные числа K и N (K<=N) , а во второй строке массив из N вещественных чисел. Продублировать в исходном массиве элемент с номером K(элементы нумеруются от1 ).Вывести преобразованный массив в одной строке 0

Опции темы