8.1..Izračunati aritmetičku sredinu prirodnih brojeva do 5.

Opis rješenja:

Listing programa:

PROGRAM p08113040;
VAR                     { deklarisanje promjenljivih }
  i, s, br : Integer;   { cjelobrojne promjenljive }
  as: Real;             { realne promjenljive }
BEGIN
  Writeln('Artimeticka sredina 3 - 8');
  s := 0;           { pocetna vrijednost sume }
  br := 0;          { pocetna vrijednost brojaca }
  
  FOR i := 3 TO 8 DO    { ponavljaj za i=3 do 8 - pocetak for petlje }
    BEGIN
      s := s + i;       { suma s postaje stara vrijednost sume uvecana za vrijednost i }
      br := br + 1;     { brojac br postaje stara vrijednost brojaca uvecana za 1 }
    END;                { kraj for petlje }
	  
  as := s/br;           { aritmeticka sredina je kolicnik sume i brojaca s/br }
  Writeln('Aritmeticka sredina 3-8 = ', as);
  READLN;
END.

Ispis na ekranu:

Index