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

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

Задать свой вопрос
Павел Кострюков
из не нулевых элементов массива В?
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] lt;gt; 0 then begin

           setLength(a, a.Length+1);

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

       end;

   end;

   writeln('b = ', b);

   writeln('a = ', a);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт