Question

Se considera un vector a cu elemente numere intregi , cu lungime n. Sa se aranjeze elementele vectorului astfel incat, numerele pare sa fie inaintea celor impare.

Answer 1

var

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

 i, n: byte;

begin

 write('Lungimea tabloului:'); readln(n);

 randomize;

 for i := 1 to n do

   a[i] := random(101) - 50;

 writeln('Elementele taboului:');

 for i := 1 to n do

   write(a[i]:5);

 writeln;

 writeln('Elementele pare');

 for i := 1 to n do

   if odd(a[i]) = false then write(a[i]:5);

 writeln;

 writeln('Elementele impare');

 for i := 1 to n do

   if odd(a[i]) then write(a[i]:5);

end.