Program Program1; var i,sum:integer; A: array [1..16] of integer; begin randomize; for i:=1 to 16 do begin a[i]:=random(6)-2; write(a[i],', '); end; sum:=0; for i:=1 to 16 do if a[i]<0 then sum:=sum+a[i]; writeln('Сумма отрицательных чисел равна',sum); end.