program ms; uses crt; var a:array [1..10] of integer; l,k,s,i:longint; begin clrscr; writeln('Введите 10 элементов массива'); for i:=1 to 10 do begin readln(a[i]); if a[i]<0 then l:=l+a[i]; if a[i]>0 then k:=k+a[i]; end; s:=l*k; writeln(s); readkey; end.