Questão número 287665

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;

ShowMessage (IntToStr(S));

end;

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

O Provas e Concursos é um banco de dados de questões de concursos públicos organizadas por matéria, assunto, ano, banca organizadora, etc