1 Вариант, Если можно,то программу не очень большой, и без лишнего
Зарание Спасибо

Ответ:

Объяснение:

program summas;

var

 a :array[1..20] of integer;

 i,sum:integer;

begin

randomize;

writeln('Исходный массив');

for i:=1 to 20 do

begin

    a[i]:= random(41)-20; //a[i]:= random(-20,20); для PascalABC

    write(a[i],' ');

    if a[i]>0 then sum:=sum+a[i];

    end;

         writeln('');

writeln('Сумма положительных чисел массива=',sum);

readln;

end.