O algoritmo abai...

O algoritmo abaixo foi elaborado para manipular duas

matrizes.

procedure Matriz;

var

A : array of array of Integer;

I, J, N, S : Integer;

begin

N := 3;

S := 0;

SetLength(A, N);

for I := Low(A) to High(A) do

begin

SetLength(A[I], N);

for J := Low(A[I]) to High(A[I]) do

begin

S := S + I + J;

end;

end;

ShowMessage (IntToStr(S));

end;

A procedure Matriz irá apresentar na tela, através do método ShowMessage, o valor: