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

Array109. Дан массив размера $$N$$. После каждого отрицательного элемента массива вставить элемент с нулевым значением.

Решение:

program Array109;
type
 m =  array[1..20] of Integer;

var
  a, b: m;
  N,Nk,i,k:Integer;

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

  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
  Nk:=N;
  k:=1;
  for i:=1 to N do
   begin
    b[k]:=a[i];
    if a[i]<0 then
     begin
      Nk:=Nk+1;
      K:=k+1;
      b[k]:=0;
     end;
    K:=k+1;
   end;

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

program Array109;

type

m = array[1..20] of Integer;

var

a, b: m;

N,Nk,i,k:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Nk:=N;

k:=1;

for i:=1 to N do

begin

b[k]:=a[i];

if a[i]<0 then

begin

Nk:=Nk+1;

K:=k+1;

b[k]:=0;

end;

K:=k+1;

end;

N:=Nk;

a:=b;

Writeln(N);

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

end.

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

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

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

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