Question

Cоздать массив, в котором отрицательные элементы исходного массива предшествуют положительным элементам исходного массива
на Pascal ABC.net

Answer 1

program tikerow534;

const n = 5;

type mas = array [0..n - 1] of integer;

    temp = array of integer;

var i, k: integer;

   a: mas;

   b: temp;

begin

writeln('Cоздать массив, в котором отрицательные элементы исходного массива предшествуют положительным элементам исходного массива.');

writeln('Исходный массив:');

k := 0;

randomize;

for i := 0 to n - 1 do

 begin

 a[i] := random(201) - 150;

 write(a[i], '; ');

 if (a[i] < 0) then k := k + 1;

 end;

writeln;

writeln('Преобразованный массив:');

setlength(b, k);

k := 0;

for i := 0 to n - 1 do

 if (a[i] < 0) then

 begin

  b[k] := a[i];

  k := k + 1;

 end;

for i := 0 to k - 1 do

 write(b[i], '; ');

for i := 0 to n - 1 do

 if (a[i] >= 0) then write(a[i], '; ');

readln;

end.