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

For j: =2 To n Do

If A [i,j] <b [i] Then b [i]: = A [i,j]

End;

End;

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

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

Var

i,j: Byte;

Begin

WriteLn('Наименьшие значения элементов строк матрицы A: ');

For i: =1 To m Do Begin

WriteLn(b [i]: 5: 4);

End;

End;

end.

Модуль zad2

Unit zad2;

Interface

Usescrt;

Type{определение типа двумерного массива}

Matr = array [1. .50,

1. .50] OfReal;

{Определение используемых процедур}

procedure vvod1(var A1: Matr; var n1: integer);

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

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

procedure vyvod1 (A1: Matr; n1: integer);

implementation

{Процедура ввода размеров и элементов матрицы, а также вывод её на экран}