Question

Ajutati-ma sa elaborez un program ce va afisa suma componentelor pozitive
va roggg!!

Answer 1

program suma_pozitiva;
var n,i, suma :integer;
    sir : array[1..100] of integer;
begin
     write(‘Dati numarul de lemente pentru vector:’); readln(n);
     for i:=1  to n  do
         readln(sir[i]);
   
     suma := 0;
     for i:=1  to n  do 
         if sir[i] > 0 then suma := suma + sir[i];
    
     writeln('Suma componentelor pozivite : ', suma);
end;