Цитата
Program Laboratory10;
// Элемент матрицы называется седловой точкой, если он является одновременно на-
// именьшим в своей строке и наибольшем в своём столбце. Дана дейтсвиетльная
// матрица размера 5*6. Выяснить, имеются ли седловые точки в этой матрице, и
// если имеются, то указать индексы одной из них
{$APPTYPE CONSOLE} // Консольное приложение
Uses
SysUtils;
Type
TM = array [1..5,1..6] of Integer; // Двумерный массив, состоящий из целых чисел
TI = array [1..5,1..6] of Integer; // Двумеррный массив, состоящих из индексов чисел
Var
s: Integer;
a:TM;
Procedure Input (Var a:TM); // Процедура ввода матрицы
Var i,j:integer;
Begin
Writeln ('Write elements - range of 5');
For i:=1 to 5 Do
Begin
For j:=1 to 6 do
Begin
Write ('Write element of ',i,'th string and ',j,'th column: ');
Readln (a[i,j]);
End;
End;
End;
Procedure Output (Var a:TM); // Процедура выводав матрицы
Var i,j:integer;
Begin
Writeln ('Current matrix');
Writeln;
For i:=1 to 5 do
Begin
For j:=1 to 6 do
Begin
Write (a[i,j],' ');
End;
Writeln;
End;
End;
Procedure Found (Var a:TM); // Процедура нахождения "седловых точек"
For i:=1 to 5 do
Begin
For j:=1 to 6 do
Begin
a[i,j] := j
end;
end;
End;
Begin // Main
Input (a);
Output (a);
Found (a);
Writeln (S);
Readln;
End.
Помогите пожалуйста написать процедуру "Found"