Kompletan kod u Borland Pascal-u za zadatak:



Dato je N brojeva. SAP koji izracunava njihovu aritmeticku sredinu.

Program Prosek;
Var
  N : Integer; { Ukupan broj sabiraka }

  X : Real; { Trenutna vrednost jednog sabirka }

  i : Integer; { Brojac petlje }

  S : Real; { Zbir }

  P : Real; { Prosek }

BEGIN

  { Ispisivanje zaglavlja programa }

  WriteLn;

  WriteLn ( '**********************************************' );

  WriteLn ( '*** PROGRAM ZA IZRACUNAVANJE PROSEKA ***' );

  WriteLn ( '**********************************************' );

  { Ucitavanje broja sabiraka N }

  Write ( 'Unesite broj sabiraka N : ' );

  Read ( N );

  { Inicijalizacija - Postavljanje pocetne vrednosti }
  S := 0;

  { Petlja - Ucitava se X i zatim dodaje na predhodni zbir S }

  For i := 1 To N Do

     Begin

        Write ( 'Unesite vrednost ', i, '.-og sabirka : ' );

        Read ( X );

        S := S + X;

     End;

  { Izracunavanje proseka }
  P := S / N;
  { Stampanje rezultata }
  WriteLn ( 'Prosek je : ', P : 5 : 2 );
END.