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

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

Решение:

program Array108;
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
    if a[i]> 0 then
     begin
      Nk:=Nk+1;
      b[k+1]:=a[i];
      b[k]:=0;
      K:=k+1;
     end
    else b[k]:=a[i];
    K:=k+1;
   end;

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

program Array108;

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

if a[i]> 0 then

begin

Nk:=Nk+1;

b[k+1]:=a[i];

b[k]:=0;

K:=k+1;

end

else b[k]:=a[i];

K:=k+1;

end;

N:=Nk;

a:=b;

Writeln(N);

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

end.

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

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

При выполнении заданий на преобразование массива не следует использовать вспомогательные массивы.

program array_108;//fpc

var
  a: array[1..20] of integer;
  i, j, n: integer;

begin
  n := 10;
  for i := 1 to n do a[i] := Random(11) - 5;
  for i := 1 to n do Write(a[i], ' '); Writeln;
  
  i := 1;
  
  while i <= n do
  begin
    if a[i] > 0 then
    begin
      for j := n + 1 downto i + 1 do
        a[j] := a[j - 1];
      a[i] := 0;
      n += 1;
      i += 1;
    end;
    i += 1
  end;
  
  for j := 1 to n do Write(a[j], ' ')
end.

program array_108;//fpc

var

a: array[1..20] of integer;

i, j, n: integer;

begin

n := 10;

for i := 1 to n do a[i] := Random(11) - 5;

for i := 1 to n do Write(a[i], ' '); Writeln;

i := 1;

while i <= n do

begin

if a[i] > 0 then

begin

for j := n + 1 downto i + 1 do

a[j] := a[j - 1];

a[i] := 0;

n += 1;

i += 1;

end;

i += 1

end;

for j := 1 to n do Write(a[j], ' ')

end.

Ответить

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

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

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

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