Free Pascalban hogy lehet megoldani?

program Atlagszamitas;

type

TArray30000 = array[1..30000] of Byte ;

function GetAverage(A: TArray30000): Double;

var

Sum : Double ;

I : Longint ;

begin

Sum := 0;

for I := Low(A) to High(A) do

begin

Sum := Sum + A[I];

end;

GetAverage := Sum / Length(A) ;

end ;

var

A : TArray30000 ;

I : Longint ;

S : String ;

N : String ;

BEGIN

Randomize ;

S := '';

for I := Low(A) to High(A) do

begin

A[I] := Random(6)+1 ;

Str(A[I],N) ;

S := S+N+',';

if Length(S) >= 78 then

begin

Writeln(S);

S := '';

end ;

end;

Writeln(S);

Writeln('Atlag: ',GetAverage(A):0:6);

END.

Én nem tudom olyan szépen fölépíteni, mint #2 :\

Parasztosan:

var i, szam : word; osszeg : longword = 0;

begin

Randomize;

for i := 1 to 30000 do

      begin

            szam := Random(6) + 1;

            Write(szam);

            Inc(osszeg, szam);

      end;

WriteLn(osszeg / 30000:1:3);

ReadLn;

end.

Rejtély, hogy neked mi okozott gondot, és mi lehetett még az a sok minden, amit kipróbáltál.