Es una estructura de datos en el que se almacena una colección de datos del mismo tipo.
Se declaran en la sección TYPE:
Type
Nombre_arreglo = Array[1..N] of tipo_de_dato;
Ejem:
Type
Vector:= Array[1..7] of Integer;
Var
A:Vector;
Sacar Promedio de un arreglo:
For i=1 to 7 Do
Suma := suma + A[i];
Suma := suma/7;
Para escribir un arreglo :
Writeln(A[5]);
Read(A[3]); o A[3]:= x
Read(x);
Para leer completamente
For i:=1 to 7 Do
Read(A[i]);
Ejemplo
| Program promedio; Const N=57; Type Vector = Array[1..N] of Integer; Var A:Vector; Suma,i:Integer; Prom : Real; Begin For i :=1 to N do Begin Writeln(‘ingrese dato ‘,i); Read(A[i]); End; Suma:=0; For i :=1 to N do Suma:= suma + A[i] Prom:= suma/N; Writeln(‘el promedio es ‘,prom); END. |
