Dze je subor www.TrSek.com/zadania/aritprpo.pas{ 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.