Napisati program sa funkcijom za izračunavanje aritmetičke sredine brojeva od a do b (koristiti REPEAT).

Listing programa:

PROGRAM aritmeticka_sredina;
USES
  WinCrt;
VAR
  a, b: Integer;
FUNCTION as(a, b:Integer):Real;
VAR
  i, br: Integer;
  s: Real;
BEGIN
  s := 0;
  br := 0;
  i:= a;
  REPEAT
    s := s +  i;
    br := br + 1;
    i := i + 1;
  UNTIL i>b;
  as := s / br;
END;

BEGIN
  Writeln ('Aritmeticka sredina od a do b REPEAT ');
  Write('a  b ');
  Readln(a, b);
  writeln('Aritmeticka sredina ', as(a, b));
END.

Index