Soru 24: N adet sayı içinde negatif, pozitif ve sıfırların sayısını bulan program

 

{Girilen N sayi içinde pozitif negatif ve sıfır adedini bulan program}

program npsbul;

uses crt;

var

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

  n,i,poz,neg,sif:integer;

begin

  clrscr;

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

  readln(n);

  for i:=1 to n do

    begin

      write(I,'. Sayıyı giriniz :');

      readln(sayilar[i]);

      if sayilar[i] > 0 then poz:=poz+1;

      if sayilar[i] = 0 then sif:=sif+1;

      if sayilar[i] < 0 then neg:=neg+1;

    end;

  writeln('Pozitif sayı adedi :',poz);

  writeln('Negatif sayı adedi :',neg);

  writeln('Sıfır adedi        :',sif);

  readkey;

end.