Question

Pascal. Sa se scrie un program utilizind procedura ce va calcula suma numerelor pare.

Answer 1

program ex;

type sir=array[1..100] of integer;

var x:sir; i,n:byte;

procedure nrPare( x:sir; n:byte);

var s:longint;

begin

         s:=0;

           for i:= 1 to n do

                 if x[i] mod 2 =0 then s:=s+x[i];

         if s=0 then

                     writeln("Nu exista nr pare in sir")

          else

                     writeln(s);

end;

begin  //program principal

          writeln("Dati dimensiunea sirului:");          

           readln(n);

           writeln("dati elementele sirului:");

           for i:=1 to n do

                   read(x[i]);

            writeln("elementele pare ale sirului sunt:");

            nrPare(x,n);

end;