8.3.. Napisati program za učitavanje 10 brojeva i ispis koliko je učitano negativnih, nula i pozitivnih brojeva.
Listing programa:
PROGRAM p08315006;
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;
i := 1;
REPEAT
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;
i := i + 1;
UNTIL i > 10;
Writeln ('Negativnih brojeva ima ', br);
Writeln ('Nula ima ', br0);
Writeln ('Pozitivnih brojeva ima ', br1);
END.
Ispis na ekranu:
Index
|
|