Question

Составить программу, используя одномерные массивы:
Дан массив А (15). Сформировать новый
массив из отрицательных чисел исходного массива.​
(Pascal)

Answer 1

Ответ:

var

 a, b: array[1..15] of integer;

 i, k: integer;

begin

 randomize;

 k := 1;

 WriteLn('Массив:');

 for i := 1 to 15 do

 begin

   a[i] := random(200) - 100;

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

   if a[i] < 0 then

   begin

     b[k] := a[i];

     inc(k);

   end;

 end;

 WriteLn;

 WriteLn('Новый массив:');

 for i := 1 to k - 1 do Write(b[i], ', ');

end.

Объяснение: