{ PAR_NEPAR.PAS                                 Copyright (c) mersi }
{ Program pre nacitanie N cisel a ich nasledne vypisanie v tabu–ke  }
{ Zaporne neparne, zaporne parne, kladne parne, kladne neparne      }
{                                                                   }
{ Datum:27.11.2007                             http://www.trsek.com }

program PAR_NEPAR;
uses    crt;
var     KP:array[1..100] of real;
        KN:array[1..100] of real;
        ZP:array[1..100] of real;
        ZN:array[1..100] of real;
        pocKP:integer;
        pocKN:integer;
        pocZP:integer;
        pocZN:integer;
        N:integer;
        i:integer;
        cislo:integer;
        MAX:integer;
label   1;
begin   ClrScr;
        pocKP:=0;
        pocKN:=0;
        pocZP:=0;
        pocZN:=0;
        Writeln('Program pre naŸ¡tanie N Ÿ¡sel a ich n sledn‚ vyp¡sanie v tabu–ke takto:');
        Writeln('(Z porn‚ nep rne, z porn‚ p rne, kladn‚ p rne, kladn‚ nep rne)');
        Writeln('-------------------------------------------------------------------');
        Writeln('Zadaj poŸet naŸ¡tavanìch Ÿ¡sel (poŸet m“§e byœ od 1 do 100):');
        1: Readln(N);
        if (N=0) or (N>100) then
                begin
                Writeln('Zadali ste nespr vny poŸet naŸ¡tavanìch Ÿ¡sel !');
                Writeln('PoŸet m“§e byœ od 1-100');
                Writeln('zadajte Ÿ¡slo eçte raz:');
                goto 1;
                end;
        for i:=1 to N do
                begin
                Writeln('Zadaj [',i,'] Ÿ¡slo:');
                Readln(cislo);
                if (cislo>0) and (cislo mod 2=0) then
                        begin
                        pocKP:=pocKP+1;
                        KP[pocKP]:=cislo;
                        end;
                if (cislo>0) and (cislo mod 2=1) then
                        begin
                        pocKN:=pocKN+1;
                        KN[pocKN]:=cislo;
                        end;
                if (cislo<0) and (cislo mod 2=0) then
                        begin
                        pocZP:=pocZP+1;
                        ZP[pocZP]:=cislo;
                        end;
                if (cislo<0) and (cislo mod 2=-1) then
                        begin
                        pocZN:=pocZN+1;
                        ZN[pocZN]:=cislo;
                        end;
                end;

        if (pocKP>=pocKN) then MAX:=pocKP else MAX:=pocKN;
        if (pocZP>=MAX) then MAX:=pocZP;
        if (pocZN>=MAX) then MAX:=pocZN;


        Writeln;
        Writeln('Tabu–ka roztriedenìch Ÿ¡sel:');
        Writeln;
        Writeln('-------------------------------------------------------------------');
        Writeln('| Z porn‚ nep rne | Z porn‚ p rne | Kladn‚ p rne | Kladn‚ nep rne |');
        Writeln('-------------------------------------------------------------------');

        for i:=1 to MAX do
        begin

          if (i<=pocZN) then
             Write('|     ',ZN[i]:6:2,'      |')
          else
             Write('|                 |');

          if (i<=pocZP) then
             Write('    ',ZP[i]:6:2,'     ')
          else
             Write('               ');

          if (i<=pocKP) then
             Write('|   ',KP[i]:6:2,'     |')
          else
             Write('|              |');

          if (i<=pocKN) then
             Write('    ',KN[i]:6:2,'      |')
          else
             Write('                |');

          writeln;
        end;
        writeln('-------------------------------------------------------------------');
        Readln;
end.