{ 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.