{ ARITPRPO.PAS } { Aritmeticky priemer pola 50 cisel. } { } { Author: Juraj Pupak } { Date : 27.10.2006 http://www.trsek.com } program AritPriemerPola; uses crt; Function NaplneniePola : integer; var Pole : array [1..50] of integer; Index : integer; Suc_klad_cis : integer; begin Suc_klad_cis := 0; Randomize; For index := 1 To 50 Do begin Pole[index] := Random(100) + 100; IF Pole[index] > 0 THEN Suc_klad_cis := Suc_klad_cis + Pole[index]; end; NaplneniePola := Suc_klad_cis; end; var Sucet : integer; Priemer : real; begin clrscr; Sucet := NaplneniePola; Priemer := Sucet / 50; writeln('Aritmeticky priemer pola je ',Priemer : 2 : 2); readln; end.