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

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

Решение:

program Array105;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a : array[1..10] of Integer;
  N,K,M,i,Amax,Amin:Integer;

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

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

  Write('M: ');
  Readln(M);

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

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

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

program Array105;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

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

N,K,M,i,Amax,Amin:Integer;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Write('M: ');

Readln(M);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

N:=N+M;

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

for i:=K+1 to K+M do a[i]:=0;

Writeln(N);

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

readln;

end.

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

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

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

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