Переписать положительные элементы массива X (30) и Y (30) в массив Z - Turbo Pascal

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

Переписать положительные элементы массива X(30) и Y(30) в массив Z. Заполнение массива Z в подпрограмме.

Решение задачи: «Переписать положительные элементы массива X (30) и Y (30) в массив Z»

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

var
  x, y: array[1..30] of integer;
  i, size: byte;
  z: array of integer;
 
procedure plus(i: integer);
begin
  if i > 0 then 
  begin
    size := size + 1;
    SetLength(z, size);
    z[size - 1] := i;
  end;
end;
 
begin
  size := 1;
  Randomize;
  write('Массив x: ');
  for i := 1 to 30 do
  begin
    x[i] := Random(-100, 100);
    write(x[i]:4);
    plus(x[i]);
  end;
  writeln;
  write('Массив y: ');
  for i := 1 to 30 do
  begin
    y[i] := Random(-100, 100);
    write(y[i]:4);
    plus(y[i]);
  end;
  writeln;
  write('Массив z: ');
  for i := 1 to size - 1 do
    write(z[i]:4);
end.

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

В данном коде используется язык программирования Turbo Pascal. Он содержит два массива: x и y, каждый из которых содержит 30 элементов типа integer. Также есть третий массив z, который будет использоваться для хранения переписанных положительных элементов. Процесс переписывания положительных элементов массивов x и y в массив z происходит следующим образом:

Создается переменная size, которая будет хранить текущий размер массива z.
Инициализируется генератор случайных чисел.
Выводится сообщение Массив x:.
Для каждого элемента x[i] от 1 до 30 выполняется следующая последовательность действий:
- Выводится значение элемента x[i].
- Вызывается процедура plus, которая увеличивает размер массива z на 1.
- Если значение элемента x[i] больше 0, то:
  - Увеличивается размер массива z на 1.
  - Выделяется память для нового элемента в массиве z.
  - Значение элемента x[i] записывается в новый элемент массива z.
- Вызывается процедура plus для элемента x[i].
Выводится сообщение Массив y:.
Для каждого элемента y[i] от 1 до 30 выполняется аналогичная последовательность действий, как для элементов x[i].
Выводится сообщение Массив z:.
Для каждого элемента z[i] от 1 до size-1 выполняется следующая последовательность действий:
- Выводится значение элемента z[i]. Таким образом, данный код переписывает положительные элементы массивов x и y в массив z.