Перенести в хвост одномерного массива первый отрицательный элемент — Pascal(Паскаль)

uses crt;

var
  i, j, n, temp: integer;

const a:array [1..5] of integer = (2, 0, -5, -8, 6);
begin
  clrscr;
  n := 5;
  for i := 1 to n do
    writeln(a[i], ' ');
  for i := 1 to n do
    if a[i] < 0 then
      for j := i + 1 to n do
      begin
        temp := a[j];
        a[j] := a[j - 1];
        a[j - 1] := temp;
      end;
  for i := 1 to n do
    write(a[i], ' ');
  readln;

end.

Leave a Comment

13 − = 5