Контрольная работа: Программирование на Турбо Паскале

matrix = array[1..10,1..10] of integer;

var

a :matrix;

i,j,n,m:integer;

c :char;

sum :integer;

procedure show_matrix(n,m : integer;a : matrix);

var

i,j :integer;

begin

Writeln('Матрица:');

for i:=1 to n do

begin

Write('│ ');

for j:=1 to m do

Write(a[i,j]:3);

Writeln(' │');

end;

Writeln;

Writeln('Дляпродолжениянажмителюбуюклавишу...');Readkey;

end;

function sum1(n,m,i,j,s,k : integer; a : matrix):integer;{восходящаярекурсия}

var

tsum :integer;

begin

if (i=n) and (j=m)

then begin{терминальнаяветвь}

Writeln('│','Терм. ветвь':12,'│',s:26,'│',' a[',i,',',j,']=',a[i,j]:7,'│');

sum1:=s+a[i,j];