Контрольная работа: Выражения и условный оператор IF. Операторы циклов. Массивы и подпрограммы

end ;

writeln ;

end ; {output_matrix}

procedure change_matrix(var m:matrix ;n:integer );

var

i,j:integer ;

min_r,min_c,max_r,max_c:integer ;

min_z,max_z:real ;

value:real ;

begin

min_z:=100000;

for i:=1 to n do

for j:=1 to n do

if m[i,j]<min_z then

begin

min_r:=i;min_c:=j;min_z:=m[i,j];

end ;

writeln ('Минимальное значение и индексы:');

write (min_z:0:digits);

write ('; столбец: ');

write (min_c);

write (', строка: ');

writeln (min_r);

max_z:=-100000;

for i:=1 to n do

for j:=1 to n do

if m[i,j]>max_z then

begin

max_c:=j;max_r:=i;max_z:=m[i,j];