Курсовая работа: Автоматизированная система обработки структур данных

var i,j: byte;

begin

repeat

writeln('Введите размер матрицы');

readln(n1);

until (n1>1);

for i: =1 to n1 do

for j: =1 to n1 do begin

writeln('Введите элементы матрицы A [', i,',',j,'] ');

readln(A1 [i,j])

end;

WriteLn('Исходная матрица');

For i: =1 To n1 Do Begin

For j: =1 To n1 Do Begin

write(A1 [i,j]: 5: 4,' ');

end;

writeln;

end;

end;

{Процедура поиска максимального значения матрицы}

procedure poiskmax(A1: Matr; n1: integer; var k1,l1: byte);

var i,j: byte; max: real;

begin

max: =abs(A1 [i,1]);

for i: =1 to n1 do begin

for j: =1 to n1 do

if abs(A1 [i,j]) >max then begin

k1: =i;

l1: =j;