Матрицы, min и max. Опции

[nadia]

Очень нужно решить контрольную в универ по турбо паскалю. Я его учила 2 года назад, но почти ничего не помню. Помоги пожалуйста. Буду очень презнательна.
Вот задачка:
Задана матрица А[M/M] действительных чисел. Поменять местами максимальный и минимальный элементы главной диагонали. Вывести преобразованную матрицу.

[мисс_граффити]

замечательная программка.
скажи мне честно, ты ее ПОТЕСТИРОВАТЬ не пробовал?
как думаешь, имеет ли смысл строчка:

 if a[i,i]<a[max,max] then min:=i;

понимаешь, что меньше максимального элемента не только минимальный, но и многие другие?

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

пишем сценарий для мультфильма про Телепузиков? Это они все по два раза повторяют...

for i:=1 to n do for j:=1 to n do Read(a[i,j]);
for i:=1 to n do //вывод заданной матрицы 
for j:=1 to n do
begin
write(a[i,j],' ');
if j=n then writeln;
end;

Сразу при вводе выводить нельзя? Или тоже принципиально отделяешь ввод от вывода -чтобы не запутаться?

i:=a[min,min];

и зачем ты это делаешь? потом же все равно затираешь значение, хранящееся в i
продолжить или хватит?

[YnickYM]

замечательная программка.
скажи мне честно, ты ее ПОТЕСТИРОВАТЬ не пробовал?

Честно говоря, нет.

как думаешь, имеет ли смысл строчка:

 if a[i,i]<a[max,max] then min:=i;

понимаешь, что меньше максимального элемента не только минимальный, но и многие другие?

Исправлено

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

пишем сценарий для мультфильма про Телепузиков? Это они все по два раза повторяют...

Пардон, опечатка. Имелось ввиду:
i:=a[min,min];
a[min,min]:=a[max,max];
a[max,max]:=i;

for i:=1 to n do for j:=1 to n do Read(a[i,j]);
for i:=1 to n do //вывод заданной матрицы 
for j:=1 to n do
begin
write(a[i,j],' ');
if j=n then writeln;
end;

Сразу при вводе выводить нельзя? Или тоже принципиально отделяешь ввод от вывода -чтобы не запутаться?

Исправлено.

продолжить?

Если вас не затруднит