Решаем задачи Абрамян на Паскале. Array101

Array101. Дан массив размера $$N$$ и целое число $$K$$ ($$1 \leq K \leq N$$). Перед элементом массива с порядковым номером $$K$$ вставить новый элемент с нулевым значением.

Решение:

program Array101;
var
  a : array[1..10] of Integer;
  N,i,K:Integer;

begin
  Write('N: ');
  Readln(N);

  Write('K: ');
  Readln(K);

  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  N:=N+1;
  for i:=N downto K+1 do a[i]:=a[i-1];
  a[k]:=0;

  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
end.

program Array101;

var

a : array[1..10] of Integer;

N,i,K:Integer;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

N:=N+1;

for i:=N downto K+1 do a[i]:=a[i-1];

a[k]:=0;

Writeln(N);

for i:=1 to N do writeln(i,' :',a[i]);

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 4

Newton

01.12.2016 в 22:29

Случай с K = 1 требует отдельного внимания.

Ответить
- Anton
  
  02.12.2016 в 07:03
  
  Да… выходил за пределы массива. Поправил:
  Было:
  
  for i:=N downto K do a[i]:=a[i-1];
  
  1
  
  for i:=N downto K do a[i]:=a[i-1];
  
  Стало:
  
  for i:=N downto K+1 do a[i]:=a[i-1];
  
  1
  
  for i:=N downto K+1 do a[i]:=a[i-1];
  
  Ответить
Bronislav

11.08.2018 в 15:19

Если N инициализировать значением 10, то будет ошибка выхода за границы массива, т.к. массив увеличивается на 1 элемент, а изначально (в 3 строке) описан массив из 10 элементов. Нужно добавить в описание еще хотя-бы один.

Ответить
asdfg

26.04.2021 в 04:24

вместо :

N:=N+1; for i:=N downto K+1 do a[i]:=a[i-1]; a[k]:=0;

1
2
3

N:=N+1;
for i:=N downto K+1 do a[i]:=a[i-1];
a[k]:=0;

можно:

for var i:=n downto k do a[i+1]:=a[i]; a[k]:=0;

1
2

for var i:=n downto k do a[i+1]:=a[i];
a[k]:=0;

Ответить

Решаем задачи Абрамян на Паскале. Array101

Комментарии:

Комментарии 4

Добавить комментарий Отменить ответ