Question

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

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.