8.1.. Napisati program za učitavanje 10 brojeva i ispis koliko je učitano negativnih, nula i pozitivnih brojeva.

Listing programa:

PROGRAM P08115006;
USES
  WinCrt;
VAR
  i, br, br0, br1, n: Integer;
BEGIN
  Writeln ('Od 10 brojeva koliko je negativnih, nula i pozitivnih brojeva');
  br := 0;
  br0 := 0;
  br1 := 0;
  FOR i := 1 TO 10 DO
    BEGIN
      write (i, '. broj ');
      readln(n);
      IF n < 0 THEN br := br + 1;
      IF n = 0 THEN br0 := br0 + 1;
      IF n > 0 THEN br1 := br1 + 1;
    END;
  Writeln ('Negativnih brojeva ima ', br);
  Writeln ('Nula ima ', br0);
  Writeln ('Pozitivnih brojeva ima ', br1);
END.

Ispis na ekranu:

Index