Question

Scrieți un program, folosind un subprogram , ce calculează suma elementelor pozitive în tabelul A [1..n]
Am nevoie urgent , mulțumesc mult ❤

Answer 1

program sume;

var a:array[1..100] of integer;

   n, i, poz:integer;

function sumacif(num:integer):integer;

var s:integer;

begin

 s:=0;

 while (num>0) do

   begin

     s:=s+(num mod 10);

     num:=num div 10;

   end;

 sumacif:=s;

end;

begin

 write('n= '); read(n);

 writeln(' introdu ', n,' numere intregi: ');

 for i:=1 to n do

     read(a[i]);

 poz:=0;

 writeln(' sumele elementelor pozitive: ');

 for i:=1 to n do

   if a[i]>0 then begin poz:=1; write(sumacif(a[i]), '  '); end;

 writeln;

 if poz=0 then writeln('nu contine pozitive...');

end.