6.4..Napisati program za ispis prosjeka 5 brojeva.

Listing programa:

PROGRAM Prosjek;
CONST
  n = 5;
VAR
  a1, a2, a3, a4, a5: INTEGER;
  p: REAL;
BEGIN
  WRITE('Prva ocjena:');
  READLN(a1);
  WRITE('Druga ocjena:');
  READLN(a2);
  WRITE('Treca ocjena:');
  READLN(a3);
  WRITE('Cetvrta ocjena:');
  READLN(a4);
  WRITE('Peta ocjena:');
  READLN(a5);
  p := (a1 + a2 + a3 + a4 + a5) / n;
  WRITELN('Prosjek:', p:4:2);
  READLN;
END.

Ispis na ekranu:

Index