Найти сумму положительных элементов массива - Pascal (12461)

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

Целочисленный массив а(30) заполнен случайными числами из интервала (-50,50). Найти сумму положительных элементов этого массива. Результат вывести на экран. Пожалуйста, помогите! Мне нужен вариант решения на уровне 9-ого класса.

Решение задачи: «Найти сумму положительных элементов массива»

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

var
  a: array [1..30] of integer;
  i, s: integer;
 
begin
  randomize;
  for i := 1 to 30
  do 
  begin
    A[i] := 50 - random(100);
    write(A[i], ' ');
    if A[i] > 0
      then inc(s, A[i]);
  end;
  writeln;
  writeln(s);
end.

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

В данном коде используется язык программирования Pascal. Он содержит следующие переменные:

a: это массив целых чисел размером от 1 до 30.
i: это переменная для хранения текущего индекса массива.
s: это переменная для хранения суммы положительных элементов массива. Код начинается с объявления переменных. Затем, с помощью цикла for, происходит заполнение массива случайными числами от 50 до 100, причем каждое число имеет свой собственный индекс. После этого, с помощью еще одного цикла for, происходит проверка каждого элемента массива на положительность. Если элемент положительный, то он добавляется к переменной s. В конце выводится значение переменной s.