home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PASCAL
/
PASCALT2.ZIP
/
ARRAYS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
510b
|
18 lines
(* 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.