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

Opis rješenja:

Listing programa:

PROGRAM p08113017;
VAR                     { deklarisanje promjenljivih }
  i, s, br : Integer;   { cjelobrojne promjenljive }
  as: Real;             { realne promjenljive }
BEGIN
  Writeln('Artimeticka sredina 1 - 5');
  s := 0;           { pocetna vrijednost sume }
  br := 0;          { pocetna vrijednost brojaca }
  
  FOR i := 1 TO 5 DO    { ponavljaj za i=1 do n - 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 1-5 = ', as);
  READLN;
END.

Ispis na ekranu:

Index