Question

Se citesc m nr de la tastatură sa se afiseze suma nr impare

Answer 1

var

 n, d, i, c, u: integer;

begin

 write('n = ');

 readln(n);

 for i := 1 to n do

 begin

   readln(d);

   if d mod 2 = 0 then c := c + d

   else  

     u := u + d;

 end;

 writeln('Pare ', c);

 writeln('Impare', u);  

end.