uses crt;
type matr=array[1..10,1..10] of integer;
var n,m:integer; a:matr;
procedure vvod(var n,m:integer; var a:matr); //процедура ввода
var i,j:integer;
begin
writeln('n='); readln(n); //кол-во столбцов матрицы
writeln('m='); readln(m); //кол-во строк матрицы
for i:=1 to n do
for j:=1 to m do begin
write('el[',i,',',j,']='); readln(a[i,j]); end; writeln; end;
procedure vivod(n,m:integer; a:matr); //процедура вывода
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:4); writeln; end; end;
begin
vvod(n,m,a); //вызов процедуры ввода
vivod(n,m,a); //вызов процедуры вывода
readln; end.
Попробуй его