Ответ:

begin

 var size := readinteger;

 var A := ArrRandomInteger(size, -37, 20);

 A.Println;

 var S := 0;

 for var i := 0 to A.Length - 1 do

 begin

   if (A[i] > 0) then

   begin

     inc(S, A[i]);

   end;

 end;

 write(S);

end.

Объяснение:

begin  // Начало программы

 var size := readinteger;  // Переменная, хранящая размер массива, считывается с клавиатуры

 var A := ArrRandomInteger(size, -37, 20);  // Объявление массива размером size + заполнение массива случайными значениями из диапазона [-37, 20].

 A.Println;  // Вывод массива

 var S := 0;  // Переменная, хранящая сумму положительных чисел, равна 0

 for var i := 0 to A.Length - 1 do  // Идём от нуля до размера массива - 1

 begin  // Начало цикла

   if (A[i] > 0) then  // Если значение массива с индексом i > 0, тогда

   begin  // Начало условного оператора

     inc(S, A[i]);  // Увеличиваем значение переменной S на значение массива с индексом i

   end;  // Конец условного оператора

 end;  // Конец цикла

 write(S);  // Выводим ответ

end. // Конец программы