10.5.1. Učitati članove niza. Izračunati i ispisati broj pozitvinih, nula i negativnih članova niza odvojeno.

Opis programa:

Listing programa:

PROGRAM P10114009;
USES
  WinCrt;
VAR
 i, br, br1, br2, n  : INTEGER;
 X : ARRAY [1..15] OF INTEGER;
BEGIN
  WRITE('Broj clanova niza');
  READLN(n);
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  br :=0; {pocetne vrijednosti brojaca}
  br1:=0;
  br2:=0;
  FOR i := 1 TO n DO
  BEGIN
   IF x[i] > 0 THEN
     br:=br + 1;
   IF x[i] = 0 THEN
     br1:=br1 + 1;
   IF x[i] < 0 THEN
     br2:=br2 + 1;
  END;
  WRITELN('Broj pozitivnih clanova niza: ',br);
  WRITELN('Broj nula: ',br1);
  WRITELN('Broj negativnih clanova niza: ',br2);
END.

Ispis na ekranu:

Index