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

Procedure vvod (Var A: Matrix; Var m, n: Integer);

Var

i, j: Byte;

Begin

Repeat

WriteLn('Введите размеры матрицы не более ',max_m,' ',max_n);

ReadLn(m);

ReadLn(n);

Until (m>1) AND (n>1) AND (m<=20) AND (n<=40);

For i: =1 To m Do

For j: =1 To n Do Begin

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

ReadLn(A [i,j]);

End;

clrscr;

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

For i: =1 To m Do Begin

For j: =1 To n Do Begin

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

end;

writeln;

end;

End;

{Процедура нахождения наименьших значений строк матрицы}

Procedure obrab (A: Matrix; m, n: Integer; Var b: Massiv);

Var

i, j: Byte;

Begin

For i: =1 To m Do Begin