Program tp10;
uses crt;
type tmass = array[1..30,1..30] of real;
point = ^tmass;
var a: point;
m, n :integer;
Procedure Input(var x:point; name: string; var n,m:integer);
var i,j:byte;
begin
ClrScr;
WriteLn('Введите кол-во строк');
readln(n);
ClrScr;
WriteLn('Введите кол-во столбцов');
readln(m);
ClrScr;
for i:=1 to n do
for j:=1 to m do
begin
Writeln('input ',name,'[',i,',',j,']');
readln(x^[i,j]);
ClrScr;
end;
end;
Procedure FindReplace(x: point; n,m:integer);
var i,j,h,v : integer;
max: real;
Begin
max := x^[1,1];
for i:=1 to n do
for j:=1 to m do
if x^[i,j] > max then
begin
max := x^[i,j];
v:=j;
h:=i;
end;
for i:=1 to n do begin
if i = h then
continue;
x^[i,v] := 1;
end;
for j:=1 to m do begin
if j = v then
continue;
x^[h,j] := 1;
end;
end;
Procedure Output(x:point; name:string; n,m:integer);
var i,j:integer;
begin
WriteLn('Матрица : ',name);
WriteLn('Кол-во рядов - ', n);
WriteLn('kil-st stovbciv - ', m);
WriteLn;
for i:=1 to n do
begin
for j:=1 to m do
Write(x^[i,j]:6:2,' ');
WriteLn;
end;
end;
Begin
new(a);
Input(a,'a',n,m);
WritelN('laboratorna robota TP-9');
WriteLn('z discipliny OPAM');
WriteLn('studenta grupy');
WriteLn('Oberemka Volodymira');
WriteLn(#10#13, 'Vhidni danni');
Output(a,'a',n,m);
FindReplace(a,n,m);
Writeln(#10#13,'vyhidni danni');
output(a,'a',n,m);
dispose(a);
end.