Question

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

Answer 1

program p1;
uses crt;
var a:array[1..11] of integer;
i,p,s:integer;
begin

for 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.