home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / ARRAY.IPS < prev    next >
Text File  |  1998-03-25  |  633b  |  22 lines
  1. VAR
  2.    x      : integer;
  3.    soucet : real
  4.    cislo  : array[1..10] OF real;
  5. ENDVAR
  6.  
  7. PROCEDURE main
  8.    ConsoleClear;
  9.    ConsoleShow;
  10.    FOR x := 1 to 10                      {pro celΘ pole}
  11.        cislo[x] := Random(100);          {nßhodnΘ Φφslo}
  12.        WRITELN(x:2, ':', cislo[x]:10:3); {v²pis hodnoty}
  13.    ENDFOR
  14.    soucet := 0;                          {nulovßnφ souΦtu}
  15.    FOR x := low(cislo) to high(cislo)    {rozsah pomocφ indexu}
  16.        soucet := soucet + cislo[x];
  17.    ENDFOR
  18.    WRITELN('-------------');
  19.    WRITELN('SouΦet:',soucet:6:2);
  20.    WRITELN('Pr∙m∞r:',soucet/10:6:2);     {v²poΦet pr∙m∞ru}
  21. ENDPROC
  22.