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

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

write (max_z:0:digits);

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

write (max_c);

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

writeln (max_r);

{изменение элементов строки и столбца}

write ('Изменение элементов ');

write (min_r);

write (' строки и ');

write (max_c);

writeln (' столбца');

for i:=1 to n do

begin

value:=m[min_r,i];

m[min_r,i]:=m[i,max_c];

m[i,max_c]:=value;

end ;

end ; {change_matrix}

procedure vector_v(m:matrix ;var v:vector ;n:integer );

var

i:integer ;

s:real ;

begin

for i:=1 to n do

v[i]:=m[i,i];

s:=0;

for i:=1 to n do

s:=s+v[i];