Question

Se consideră tabloul MED [1..n] de numere intregi, unde n<=100. Sa se scrie un program utilizand o procedura care va calcula suma elementelor pare din acestui tablou

Answer 1

Răspuns:

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

   n:integer;

Procedure Suma;

var s,i: integer;

begin

s:=0;

for i:=1 to n do  

begin  

readln(med[i]);

if (med[i] mod 2=0) then s:=s+med[i];

end;

writeln('Suma elementelor pare: ',s);

end;

begin

readln(n);

Suma;

end.

Explicație: