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

{ PRIEMER.PAS               Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypocita priemer kladnych cisel                                   }
{ Vstup : cisle                                                     }
{ Vystup: priemer vsetkych kladnych cisel                           }
{                                                                   }
{ Datum:10.04.2000                             http://www.trsek.com }

program vektor_cisel;
var sum,cis : real;
    poc:integer;
begin
poc:=0; sum:=0;
WriteLn('Pis vektor cisel (0-koniec)');
Repeat
  Write('Zadaj cislo:');
  ReadLn( cis );
  if( cis>0 ) then begin
    poc:=poc+1;
    sum:=sum+cis;
   end;
Until( cis = 0 );

sum:=sum/poc;
Write('Priemer kladnych cisel je:', sum:6:3);
ReadLn;
end.

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