Pascal

program evon;
uses crt;
type
reeks=array [1..10] of integer;
var
   getallenrij:reeks;
   rijeven:reeks;
   rijoneven:reeks;
   aantaleven:integer;
   aantaloneven:integer;
const
     max=10;

procedure invullenrij(var getrij:reeks);
var
   t:integer;
   hulp:integer;
begin
     t:=1;
     random;
     while (t<=max) do begin
      {hulp:=5;}
      hulp:= random(100)+1;
      getrij[t]:= hulp;
      t:=t+1;
      end;
end;

procedure evenonevenaantalbepalen (getrij:reeks; var aanteven, aantoneven:integer; var evenrij, onevenrij: reeks);
var
   t:integer;
   eventeller:integer;
   oneventeller: integer;
begin
     t:=1;
     eventeller:=1;
     oneventeller:= 1;
     aanteven:=0;
     aantoneven:=0;
repeat
      if (getrij[t] mod 2=0) then begin
         evenrij[eventeller]:=getrij[t];
         aanteven:=(aanteven+1);
         eventeller:=eventeller+1;
      end
         else begin
              onevenrij[oneventeller]:=getrij[t];
              aantoneven:=aantoneven+1;
              oneventeller:=oneventeller+1;
         end;
until t=10;
end;


procedure afdrukkenrij (rij:reeks; aantal:integer);
var
   t:integer;
begin
     for t:=1 to aantal do begin
         write (rij[t]:4);
         end;
     writeln(' Er zijn ',aantal,' elementen in deze rij');
end;

begin
     invullenrij (getallenrij);
     evenonevenaantalbepalen (getallenrij, aantaleven, aantaloneven, rijeven, rijoneven);
     afdrukkenrij (getallenrij, max);
     afdrukkenrij (rijeven, aantaleven);
     afdrukkenrij (rijoneven, aantaloneven);
     readkey;
end.