Programa Em Pascal

Program Matrizes ;

type matriz =array[1..10,1..10] of integer ;

var

a,b: matriz ;

n: integer ;

procedure lermatriz (x:char; var c:matriz);

var i,j:integer;

begin

clrscr;

write ('entre com a matriz -> ', x);

for i:=1 to n do

for j:=1 to n do

begin

gotoxy (1+(j-1)*4,i+3);

read (c[i,j]);

end;

end;

procedure impmatriz (x:char; k:integer; var c:matriz);

var i,j:integer;

begin

writeln ('matriz lida ->', x);

for i:=1 to n do

for j:=1 to n do

begin

gotoxy (1+(j-1)*4,5*k+i+3);

write (c[i,j]);

end;

end;

begin{programa principal}

clrscr;

writeln ('programa para ler e imprimir matrizes de 1x10') ;

write('entre com o valor n');

read(n);

lermatriz ('a',a);

lermatriz ('b',b);

clrscr;

impmatriz ('a',0,a);

writeln (' ');

impmatriz ('b',1,b);

end.