Дан массив В(15) заполненный любыми целыми числами. сформировать массив А, состоящий из...

Question

Дан массив В(15) заполненный любыми целыми числами. сформировать массив А, состоящий из ненулевых элементов Pascal

Comments

из не нулевых элементов массива В?

Answer 1

var

   b : array of integer := new integer[15];

   a : array of integer := new integer[0];

begin

   writeln('введите целые числа: ');

   for var i := 0 to 14 do read(b[i]);

   for var i := 0 to 14 do begin

       if b[i] <> 0 then begin

           setLength(a, a.Length+1);

           a[a.Length-1] := b[i];

       end;

   end;

   writeln('b = ', b);

   writeln('a = ', a);

end.