Ответ:
Объяснение:
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.
