Создать новый массив, элементами которого являются все отрицательные элементы массива C - Turbo Pascal (33989)

Формулировка задачи:

Дан массив С(п). Создать новый массив, элементами которого являются все отрицательные элементы массива C

Решение задачи: «Создать новый массив, элементами которого являются все отрицательные элементы массива C»

Листинг программы

const
  n = 10;
var
  c, b : array[1..n] of integer;
  i, j : integer;
begin
  randomize;
  j := 0;
  writeln('массив C');  
  for i := 1 to n do
  begin
    c[i] := random(20) - 10;
    write(c[i]:4);
    if c[i] < 0 then
    begin
      inc(j);
      b[j] := c[i]
    end
  end;
  writeln;
  writeln('массив B');
  for i := 1 to j do
    write(b[i]:4);
  readln
end.

Объяснение кода листинга программы

В начале кода объявляются две переменные: n и c. Переменная n инициализируется значением 10. Переменная c представляет собой массив целых чисел размером n.
Затем объявляются две переменные: i и j. Переменная i инициализируется значением 1, а переменная j инициализируется значением 0. Эти переменные будут использоваться для итерации по массиву c и массиву b соответственно.
Выполняется команда randomize, которая инициализирует генератор случайных чисел.
Затем выполняется цикл for, который повторяется n раз (от 1 до 10). Внутри цикла каждый элемент массива c инициализируется случайным числом от 0 до 19 с помощью функции random(20) — 10. Это число затем записывается в стандартный вывод.
Если значение элемента массива c меньше 0, то увеличивается значение переменной j, и элемент массива b инициализируется значением элемента массива c. Это происходит до тех пор, пока все элементы массива c не станут положительными.
После завершения цикла for выполняется команда writeln, которая выводит на экран сообщение массив B. Затем выполняется цикл for, который повторяется j раз (от 1 до 10). Каждый элемент массива b выводится на экран.
Конец программы.