Arreglos

5.3.2 Arreglos (array)
Un arreglo está formado por un número fijo de elementos contíguos de un mismo tipo. Al tipo se le llama tipo base del arreglo. Los datos individuales se llaman elementos del arreglo.
Para definir un tipo estructurado arreglo, se debe especificar el tipo base y el número de elementos.
Un array se caracteríza por :
1. Almacenar los elementos del array en posicionesde memoria contínua
2. Tener un único nombre de variable que representa a todos los elementos, y éstos a su vez se diferencían por un índice o subíndice.
3. Acceso directo o aleatorio a los elementos individuales del array.
Los arrays se clasifican en :
* Unidimensionales (vectores o listas)
* Multidimensionales ( tablas o matrices)
 
El formato para definir un tipo array es :nombre_array = array [tipo subíndice] of tipo |

nombre_array identificador válido tipo subíndice puede ser de tipo ordinal: boolean o char, un tipo enumerado o un tipo subrango. Existe un elemento por cada valor del tipo subíndicetipo describe el tipo de cada elemento del vector; todos los elementos de un vector son del mismo tipo |
Las variables de tipo array se declaran en la sección Var o Type.
 
Declaración en Var:
Var
nombres : array[1..30] of string[30];
calif : array[1..30] of real;numero : array[0..100] of 1..100;
Declaración en Type:
Type
nombres : array[1..30] of string[30];
calif : array[1..30] of real;
numero : array[0..100] of 1..100;
Var
nom : nombres;
califica : calif;
num :numero;
Arrays unidimensionales
Un array de una dimensión (vector o lista) es un tipo de datos estructurado compuesto de un número de elementos finitos, tamaño fijo y elementos homogéneos.
Supongamos que desea conservar las edades de 10 personas. Para almacenar estas edades se necesita reservar 10 posiciones de memoria, darle un nombre al array, y a cada persona asignarle su edadcorrespondiente.

 
Nombre del vector edades
Subíndice [1],[2],...
Contenido edades[2]= 28
Ejemplo:
Program Vector_edades;
{El siguiente programa captura 20 edades
y las muestra en forma ascendente por medio
de arrays}
Uses Crt;Const
MaxPersonas = 10;
Var
edades : array [1..MaxPersonas] of byte;
i,j,paso : byte;
begin
ClrScr;
{lectura de array}
for i:=1 to MaxPersonas do
begin
gotoxy(10,5);
ClrEol;Write('Edad de la ',i,' persona : ');
ReadLn(edades[i])
end;
{ordenación}
for i:=1 to MaxPersonas-1 do
begin
for j:=i+1 to MaxPersonas do
begin
if edades[i]>edades[j] then
beginpaso :=edades[i];
edades[i]:=edades[j];
edades[j]:=paso
end
end;
WriteLn(edades[i]) {escritura del array}
end;
Readkey
end.
Arrays paralelos
Dos o más arrays que utilizan el...