fork download 
  1. program exArrays;
  2. var
  3.    n: array [0..20] of integer;   (* n is an array of 21 integers *)
  4.    i, j: integer;
  5.  
  6. begin
  7.    (* initialize elements of array n *)        
  8.    for i := 0 to 20 do
  9.        n[ i ] := (i - 10) * 2;
  10.  
  11.    (* output each array element's value *)
  12.    for j:= 0 to 20 do
  13.       writeln('Element[', j - 10, '] = ', n[j] );
  14. end.
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin 
Standard input is empty
stdout 
Element[-10] = -20
Element[-9] = -18
Element[-8] = -16
Element[-7] = -14
Element[-6] = -12
Element[-5] = -10
Element[-4] = -8
Element[-3] = -6
Element[-2] = -4
Element[-1] = -2
Element[0] = 0
Element[1] = 2
Element[2] = 4
Element[3] = 6
Element[4] = 8
Element[5] = 10
Element[6] = 12
Element[7] = 14
Element[8] = 16
Element[9] = 18
Element[10] = 20
https://ideone.com/qX30Yq
language:
Pascal (gpc 20070904)
created:
2 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!