RE:matriz
Publicado por
Hernan (1 intervención) el 09/05/2002 15:32:10
Declarar una matriz:
Type {Antes de Var}
TMatriz=array[1..15,1..10] of integer;
{esto declararia una matriz de 15 filas x 10 columnas, de numeros enteros}
VAR
Matriz:TMatriz;
Procedure Cargarmatriz(Var Matriz:TMatriz);
Var i,j:Integer;
For i:=1 to 10 do
For J=1 to 15 do
Begin
Writeln('Ingrese un numero para la posicion ', M[i,j]);
Readln(M[i,J];
End;
End; {fin del procedimiento}
Begin {Programa principal}
Cargarmatriz(Matriz);
End.