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

[nadia]

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

[YnickYM]

Извиняюсь, чушь написал.

Вот мой вариант программы

Uses
crt;

Var
a:array[1..10,1..10] of integer;
i,j,min,max,n: integer;
BEGIN
ClrScr;
Write ('n=');
ReadLn (n);
for i:=1 to n do for j:=1 to n do
begin
Read(a[i,j]);
if j=n then writeln; end;
max:=1;
for i:=1 to n do for j:=1 to n do if a[i,i]>a[max,max] then max:=i;
min:=1;
for i:=1 to n do for j:=1 to n do if a[i,i]<a[min,min] then min:=i;
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
begin
write(a[i,j],' ');
if j=n then writeln;
end;
readln;
End.

Сообщение отредактировано: YnickYM - 30.11.2006 22:06