Составить программу вычисления произведения положительных и суммы отрицательных элементов массива A.проверить работу программы на заданном массиве A(11).
На паскале

program p1;uses crt;var a:array[1..11] of integer;i,p,s:integer;beginfor i:=1 to 11 do begin a[i]:=random(30)-10; write(a[i]:4); end;    p:=1; s:=0;  for i:=1 to 11 do begin    If a[i]>0 then begin      p:=p*a[i];     end;          If a[i]<0 then      s:=s+a[i];      end;writeln;writeln('Произведение  :',p);writeln('Сумма :',s);end.