Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

lab_6

By: a guest on May 13th, 2012  |  syntax: Delphi  |  size: 0.70 KB  |  hits: 19  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. program lab_6;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. const
  9.   n=40;
  10.  
  11. type
  12.    Tar=array[0..n]of Integer;
  13. var
  14.   A:Tar;
  15.  
  16. function Sum(Ar:array of Integer; const n_:Integer):Integer;
  17. var i:integer;
  18. begin
  19.   result:=0;
  20.   for i:=0 to n_ do
  21.     result:=result+ar[i];
  22. end;
  23.  
  24. procedure fillarray(var Ar; n_:Integer);
  25. var i:Integer;
  26. begin
  27.   Randomize;
  28.   for i:=0 to n_ do
  29.     Tar(Ar)[i]:=Random(n_);
  30. end;
  31.  
  32. procedure PrintArray(const Ar; const n_:byte);
  33. var i:Integer;
  34.     TA:array[0..100]of Integer absolute Ar;
  35. begin
  36.   Writeln('Array:',#13#10);
  37.   for i:=0 to n_ do
  38.     Writeln(TA[i]);
  39. end;
  40.  
  41.  
  42. begin
  43.   fillarray(A,n);
  44.   PrintArray(A,n);
  45.   Writeln('Sum= ',sum(A,n));
  46.   readln;
  47. end.
create a new version of this paste RAW Paste Data