Технический форум - HELP массив-матрица

Цитата:

Сообщение от kat.l.a (Сообщение 2445665)

Задан вектор из N элементов. Поменять первый элемент, имеющий отриц значение с первым нулевым элементом местами.

Код:

Const

 N=15;



Var

 X:Array[1..N] of Integer;

 a,b:Integer;

 i,Ia,Ib:byte;

 c:boolean;



Begin

 Randomize;

 Writeln('Initial array:');

 for i:=1 to N do

  begin

   X[i]:=-5+Random(10);

   Write(X[i]:4);

  end;

 Writeln;

 Writeln;

 c:=true;

 i:=0;

 Repeat

  i:=i+1;

 Until (X[i]<0) or (i=N);

 if X[i]<0 then

  begin

   a:=X[i];

   Ia:=i;

  end

 else

  begin

   c:=false;

   Writeln('No negative elements!');

  end;

 if c then

  begin

   i:=0;

   Repeat

    i:=i+1;

   Until (X[i]=0) or (i=N);

   if X[i]=0 then

    begin

     b:=X[i];

     Ib:=i;

    end

   else

    begin

     c:=false;

     Writeln('No zero elements!');

    end;

  end;

 if c then

  begin

   X[Ia]:=b;

   X[Ib]:=a;

   Writeln('New array:');

   for i:=1 to N do Write(X[i]:4);

  end;

 Readln

End.