Матрицы - вопрос №613316

program pr;

uses crt;

const n=3, m=3; 

var a:array[1..n,1..m] of real;

i,j, maxi, maxj, mini, minj:integer;

max,min,temp:real; 

begin

clrscr();

writeln('vvedite matricu');

for i:=1 to n do

for j:=1 to m do

  readln(a[i,j]);

writeln('do zameny');

for i:=1 to n do

begin

  for j:=1 to m do write(a[i,j]:8:2);

  writeln;

end;

min:=a[1,1]; max:=a[1,1];

mini:=1; minj:=1; maxi:=1; maxj:=1;

for i:=1 to n do

for j:=1 to m do

begin

  if  a[i,j]<=min then begin min:=a[i,j]; mini:=i; minj:=j end;

  if  a[i,j]>=max then begin max:=a[i,j]; maxi:=i; maxj:=j end;  

 end;

temp:=min;

a[mini,minj]:=max;

a[maxi,maxj]:=temp; 

writeln('posle zameny');

for i:=1 to n do

begin

  for j:=1 to m do write(a[i,j]:8:2);

  writeln;

end;

readln

end.