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

[nadia]

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

[Lapp]

Я причесал твою прогу, чтоб читалась нормально.
Убрал несколько begin/end'ов.
При нахождении минимума ты запоминала индексы, а при нахождении максимума - нет . Я добавил.
В конце два очевидных оператора решают твою проблему..
Все добавления снабжены комментариями.

Uses
  crt;

Var
  a:array[1..10,1..10] of integer;
  i,j,min,imin,jmin,max,imax,jmax,n: integer; {imax and jmax added}

BEGIN
  ClrScr;
  Write ('n=');
  ReadLn (n);
  for i:=1 to n do for j:=1 to n do Read(a[i,j]);
  max:=a[1,1]; imax:=1; jmax:=1;              {2 statements added}
  for i:=1 to n do for j:=1 to n do if (i=j)and(a[i,j]>max) then begin
    max:=a[i,j];
    imax:=i;        {Added}
    jmax:=j;        {Added}
  end;
  min:=a[1,1]; imin:=1; jmin:=1;
  for i:=1 to n do for j:=1 to n do if (i=j)and(a[i,j]<min) then begin
    min:=a[i,j];
    imin:=i;
    jmin:=j;
  end;
  WriteLn ('max', max);
  WriteLn ('min', min);
  {Below the min and max interchange goes}
  a[imin,jmin]:=max;
  a[imax,jmax]:=min
End.

PS
В названии темы, пожалуйста, не пиши просьбы помочь - здесь 99.9% просьбы о помощи. Пиши краткое описание задачи. Успехов!

[nadia]

Огромное Вам человеческое спасибо!!! Благодаря Вам я сделала свою контрольную в универ. Классно когда есть умные люди, которые разбираются в программировании. И что я нашла ваш сайт!!! Я от всей души вам благодарна. Еще раз БОЛЬШОЕ СПАСИБО!!!!!!!!!