Soru 05: N adet sayının tek-çift kontrolünü yapan program

 

{Girilen N adet sayının çift-tek kontrolünü yapan program}

program cift_tek;

uses crt;

var

  n, i, cift, tek :integer;

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

begin

  clrscr;

  write('Girilecek sayı adedini giriniz :');

  readln(n);

  for i:= 1 to n do

    begin

      write(i,'. sayıyı girin :');

      readln(matris[i]);

      if (matris[i]/2) = int(matris[i]/2) then cift:=cift+1

                                          else tek :=tek +1

    end;

 

  writeln('Çift sayıların adedi :',cift);

  writeln('Tek sayıların adedi  :',tek);

  readkey;

end.