Вотс
| Код |
program MaxNumIJ;
const
n=3;{размерность}
type
TMatrix=array[1..n,1..n] of integer;
procedure InputMatrix(var Matrix:TMatrix);
{ввод}
var
i,j:integer;
begin
writeln('Please enter matrix(',n,'x',n,'):');
for i:=1 to n do
begin
for j:=1 to n-1 do
read(Matrix[i,j]);
readln(Matrix[i,n]);
end;
end;
procedure PrintMatrix(var Matrix:TMatrix);
{вывод}
var
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n-1 do
write(Matrix[i,j],' ');
writeln(Matrix[i,n]);
end;
end;
procedure FindMax(var Matrix:TMatrix;var max,indexi,indexj:integer);
{поиск макс эл-та и его индексов}
var
i,j:integer;
begin
indexi:=1;
indexj:=1;
max:=Matrix[indexi,indexj];
for i:=1 to n do
for j:=1 to n do
if Matrix[i,j]>max then
begin
max:=Matrix[i,j];
indexi:=i;
indexj:=j;
end;
end;
var
max,i,j:integer;
Matrix:TMatrix;
begin
InputMatrix(Matrix);
writeln('Source matrix:');
PrintMatrix(Matrix);
FindMax(Matrix,max,i,j);
writeln('First max element is ',max,' in Matrix[',i,',',j,']');
readln;
end.
|
|