SHARE
TWEET

array_auto_index

a guest Oct 12th, 2019 98 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program array_test;
  2.  
  3. type
  4.    TArrayMy = array[1..10] of integer;
  5. var
  6.    ar   : TArrayMy;
  7.    i,: integer;
  8. begin
  9.    { llenar con ceros }
  10.    t:=1;
  11.    for i:=1 to sizeof(ar)-1 do  
  12.    begin
  13.       ar[i]:=t;
  14.       inc(t);
  15.    end;
  16.  
  17.    for i in ar do writeln(ar[i]);
  18.  
  19.  
  20. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top