Localize file www.TrSek.com/zadania/average.pas

{ AVERAGE.PAS                                                       }
{ Vypocet priemeru znamok.                                          }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }

program Average;
uses crt;
var
  sucet,pocet,i,znamka : integer;
  priemer : real;
begin
clrscr;
Repeat
   write('Zadaj znamky (0-koniec): ');
   readln(znamka);
   sucet := sucet + znamka;
   pocet := pocet + 1;
Until znamka = 0;

priemer := sucet div (pocet - 1);
writeln;
writeln('Znamka je: ',priemer : 2 : 0);
readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com