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]gt;0 then sum:=sum+a[i];

    end;

         writeln('');

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

readln;

end.