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.

Answer 2

Для формирования массива А из ненулевых элементов массива В, нужно пройтись по массиву В, отфильтровать нулевые элементы и добавить оставшиеся элементы в массив А. Вот пример кода на языке Python, который выполняет данную задачу:

pythonCopy code
# Заданный массив В
B = [15, 0, 7, 0, 3, 0, 9, 0, 0, 2, 5, 0, 0, 8, 4]

# Формирование массива А из ненулевых элементов массива В
A = [num for num in B if num != 0]

# Вывод результата
print("Массив A:", A)

Результат выполнения кода:

cssCopy code
Массив A: [15, 7, 3, 9, 2, 5, 8, 4]

Теперь массив А содержит только ненулевые элементы из исходного массива В.