Сумма неотрицательных элементов массива, стоящих на четных местах. - Pascal ABC

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

Задан одномерный массив А[1..20]. Просуммировать все неотрицательные элементы, стоящие на четных местах

Решение задачи: «Сумма неотрицательных элементов массива, стоящих на четных местах.»

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

program str;
 
uses crt;
var
  a: array[1..20] of integer;
  i, sum: integer;
 
begin
  for i := 1 to 20 do
  begin
    a[i] := random(30) + 1;
    write(a[i]:4);
  end;
  writeln;
  for i := 1 to 20 do
  begin
    if(a[i] > 0) and (a[i] mod 2 = 0) then sum := sum + a[i];
  end;
  writeln(sum);
end.

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

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

a - массив из 20 элементов типа integer;
i - переменная для перебора элементов массива a;
sum - переменная для хранения суммы неотрицательных элементов массива a, стоящих на четных местах. Код начинается с инициализации всех элементов массива a случайными числами от 1 до 30, включая 1, и вывода этих чисел на экран. Затем происходит перебор всех элементов массива a:
Если элемент неотрицательный и его индекс четный (т.е. a[i] > 0 и i mod 2 = 0), то к переменной sum прибавляется значение этого элемента.
После перебора всех элементов выводится на экран сумма неотрицательных элементов массива a, стоящих на четных местах. Таким образом, данный код вычисляет сумму неотрицательных элементов массива a, стоящих на четных местах.