Category : Pascal Source Code
Archive   : PASTUT.ZIP
Filename : ARRAYS.PAS

(* Chapter 6 - Program 1 *)
program Simple_Arrays;

var Count,Index : integer;
Automobiles : array[1..12] of integer;

begin
for Index := 1 to 12 do
Automobiles[Index] := Index + 10;
Writeln('This is the first program with an array');
Writeln;
for Index := 1 to 12 do
Writeln('automobile number',Index:3,' has the value',
Automobiles[Index]:4);
Writeln;
Writeln('End of program');
end.




{ Result of execution

This is the first program with an array

automobile number 1 has the value 11
automobile number 2 has the value 12
automobile number 3 has the value 13
automobile number 4 has the value 14
automobile number 5 has the value 15
automobile number 6 has the value 16
automobile number 7 has the value 17
automobile number 8 has the value 18
automobile number 9 has the value 19
automobile number 10 has the value 20
automobile number 11 has the value 21

automobile number 12 has the value 22

End of program

}