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

[nadia]

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

[YnickYM]

или можно без ввода доп. переменной:

a[max;max]:=a[max+min;max+min]
a[min;min]:=a[max-min;max-min]
a[max;max]:=a[max-min;max-min]

Пыталась найти минимальный и максимальный, вроде написала, но ничего не получается. Не могу собрать все в кучу. Матрица не вводиться. Пишет введите 'n' а дальше данные вводятся в столбик. И все.
Что мне делать???

for i:=1 to M do
for j:=1 to M do
readln(a[i,j]);

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

[nadia]

Написала вот такую программу:

Program xxx;
Uses crt;
Var a:array[1..10,1..10] of integer;
       i,j,min,imin,jmin,max,n,m: integer;
BEGIN
        ClrScr;
        Write ('m=');
         ReadLn (m);
        Write ('n=');
        ReadLn (n);
       for i:= 1 to m do
       for j:= 1 to n do
       Read (a[i,j]);
     begin
           max:= a[1,1];
           for i:= 1 to m do
           for j:= 1 to n do
           if (i=j) and (a[i,j]>max) then
           max:= a[i,j];
     end;
          begin
                min:=a[1,1]; imin:=1; jmin:=1;
                for i:= 1 to m 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;
           end;
          WriteLn ('max', max);
           WriteLn ('min', min);
     End.

А вот как сделать так чтоб она правильно работала не могу понять??? Подскажите пожалуйста в чем ошибка и как правильно вывести НОВУЮ ПРЕОБРАЗОВАННУЮ МАТРИЦУ! И как сделать чтоб матрица имела вид матрицы а не одного длинного столбца. Помогите очень прошу!!!! Заранее большое спасибо!


Теги !!!

Сообщение отредактировано: volvo - 30.11.2006 11:45