После элемента массива с номером K вставить M новых элементов с нулевыми значениями

@naru2vlad · Регистрация: 29.10.2017

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

Дан массив размера N и два целых числа K и M (1 < K < N, 1 < M < 10). После элемента массива с номером K вставить M новых элементов с нулевыми значениями

@Joy · 06.01.2018, 06:05

Pascal

var
  n,m,k,j,i:integer;
  a:array of integer;
begin
  write('n=');
  readln(n);
  setlength(a,n+1);
  writeln('исходный массив:');
  for i:=1 to n do a[i]:=i;//read(a[i]);
  for i:=1 to n do write(a[i],' ');
  writeln;
  repeat
    write('k=');
    readln(k);
  until (k>0) and (k<=n);
  repeat
    write('m=');
    readln(m);
  until m>0;  
  setlength(a,n+m+1);
  j:=0;
  for i:=n+m downto k+1 do begin
    if n-j<k+1 then a[i]:=0 else a[i]:=a[n-j];
    j:=j+1;
  end;
  writeln('Полученный массив:');
  for i:=1 to n+m do write(a[i],' ');
end.

@naru2vlad 0 / 0 / 0 Регистрация: 29.10.2017 Сообщений: 20
		1
	После элемента массива с номером K вставить M новых элементов с нулевыми значениями 05.01.2018, 17:14. Показов 1929. Ответов 1 Метки задача, задача, массивы (Все метки) Дан массив размера N и два целых числа K и M (1 < K < N, 1 < M < 10). После элемента массива с номером K вставить M новых элементов с нулевыми значениями 0

	06.01.2018, 06:05

Опции темы

После элемента массива с номером K вставить M новых элементов с нулевыми значениями

Решение