8.3.. Napisati program za učitavanje 10 brojeva i ispisati aritmetičku sredinu negativnih i aritmetičku sredinu pozitivnih brojeva kao i broj nula.

Listing programa:

PROGRAM p08315008;
USES
  WinCrt;
VAR
  i, br, br0, br1, s, s1, n: Integer;
  as, as1: Real;
BEGIN
  Writeln ('Od 10 brojeva ispisati aritmeticku sredinu negativnih, aritmeticku sredinu i broj nula');
  br := 0;
  br0 := 0;
  br1 := 0;
  s := 0;
  s1 := 0;
  i :=  1;
  REPEAT
      write (i, '. broj ');
      readln(n);
      IF n < 0 THEN 
	    BEGIN
		  s := s + n;
		  br := br + 1
        END;
      IF n = 0 THEN 
	    br0 := br0 + 1;
      IF n > 0 THEN
	    BEGIN
          s1 := s1 + n;
          br1 := br1 + 1;
        END;
      i := i + 1;
  UNTIL i > 10;
  as := 0;
  IF as > 0 THEN as := s / br;
  as1 := 0;
  IF as > 0 THEN as1 := s1 / br1;
  Writeln ('Aritmeticka sredina negativnih brojeva ', as);
  Writeln ('Nula ima ', br0);
  Writeln ('Aritmeticka sredina pozitivnih brojeva ', as1);
END.

Ispis na ekranu:

Index