sweiki gal galite padeti su sia programa ^_^ . labai prasau type skaic = file of real; var skfailas: skaic; Aprasyti funkcija KiekMazVid(skfailas), kuri apskaiciuotu kiek duotame faile yra elementu, kuriu reiksmes mazesnes uz visu failo elementu aritmetini vidurki.