home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / OPENARR.IPS < prev    next >
Text File  |  1998-03-25  |  393b  |  18 lines
  1. FUNCTION calcSum(vector : array of integer) : integer;
  2. VAR    
  3.    i : integer;
  4.    s : integer;
  5. ENDVAR
  6.    s := 0;
  7.    FOR i := low(vector) to high(vector)
  8.        s := s + vector[i];
  9.    ENDFOR
  10.    RETURN s;
  11. ENDPROC
  12.  
  13. PROCEDURE main
  14.    ConsoleClear; ConsoleShow;
  15.    WRITELN('test otev°enΘho pole:');
  16.    WRITELN('SouΦet polo₧ek pole:  ', IntToStr(calcSum([1, 2, 3, 4, 5, 6])));
  17. ENDPROC
  18.