Question

Problema: În PASCAL
Se consideră un tablou liniar A(1..10) of integer. Scrieți un program care va calcula suma elementelor pozitive si produsul elementelor negative.

Answer 1

program sumaNr;

var  A : array[1..10] of integer;

var  n, sum, prod: integer;

begin
  sum := 0;
  prod := 1;
  for var i := 1 to 10 do
   begin
   write(i + '. ');
    readln(A[i]);
    n:=A[i];
    if n > 0 then
      sum := sum + n
    else if n < 0 then
      prod := prod * n;
  end;
  writeln('Suma numerelor pozitive este ' + sum);
  writeln('Produsul numerelor negative este ' + prod);
end.

fd773f36fee14d4d5d5418170029acdc.pas