Program Matriz;
Var
mat:array[1..2,1..3] of integer; // linha coluna
i,j,valor:integer;
Begin
i:=1;
j:=1;
repeat
repeat
write('Digite a posicao da linha ',i,' e da coluna ',j,'...:');
read(mat[i,j]);
j:=j+1;
until (j=4);
i:=i+1;
j:=1;
until (i=3);
end.
Nenhum comentário:
Postar um comentário