Из массива удалить отрицательные элементы - Pascal ABC

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

Задчка: Задать одномерный массив целых чисел A(n), где n<=50. Из массива А удалить отрицательные элементы с нечетными индексами и поместить их в массив В. Полученные массивы вывести на экран. Примечание: Массив задается рандомными числами в заданном диапазоне и прошу, максимально просто.

Решение задачи: «Из массива удалить отрицательные элементы»

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

var A : array [1..50] of integer;
    B: array [1..50] of integer;
    i,j,c,k:integer;
    
    
 begin
 readln(c);
 j:=0;
   for i:=1 to c do
   begin
   A[i]:=random(50)-30;   
   if (i mod 2 > 0) and (A[i]<0) then
   begin   
   j:=j+1;
   B[j]:=A[i];
   end
   else 
   write(A[i]:4);
   end;
 Writeln();
 for k:= 1 to j do // начиная от сюда до end (не включительно) писать не обязательно 
 write(B[j]);
 end.

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

В данном коде используется язык программирования Pascal ABC. Переменные в этом коде:

A - массив целых чисел размером от 1 до 50.
B - массив целых чисел размером от 1 до 50, который будет использоваться для хранения положительных элементов из массива A.
i, j, c - целые числа, которые используются как индексы для доступа к элементам массивов A и B.
k - целое число, которое будет использоваться для перебора элементов массива B. Код начинается с объявления переменных A, B, i, j, c и k. Затем происходит чтение одного числа с помощью функции readln(). Далее идет цикл for, который выполняется столько раз, сколько было прочитано чисел. Внутри цикла происходит следующее:
Если текущий индекс i нечетный и элемент A[i] отрицательный, то увеличивается значение переменной j на единицу и в массив B записывается значение A[i].
Если текущий индекс i четный и элемент A[i] положительный, то значение A[i] записывается в выводную строку.
Если текущий индекс i нечетный и элемент A[i] положительный, то значение A[i] записывается в выводную строку. После завершения цикла for выводится последняя строка с помощью функции write(), в которой выводится значение элемента B[j]. Таким образом, данный код удаляет отрицательные элементы из массива A и выводит положительные элементы в массив B.