Question

Elaboreaza un program care va calcula suma numerelor negative. Va rog frumos ajutatima.

Answer 1

program Tema;
type
  vector=array[1 .. 100] of integer;
var
   n,i,s:integer
   v:vector;

begin
   s:=0;
   writeln('Introduceti nr de termeni ai sirului: ');
   read(n);
   writeln('Introduceti termenii sirului: ');
   for i:=1 to n do
   begin
   read(v[i]);
   if(v[i]<0) then
     s:=s+v[i];   
   end;  
  writeln('Suma numerelor negative este: ',s);

end.