Преобразование матрицы, Сложная задача Опции

[irena]

Я еще плохо разбираюсь в массивах и у меня не получается решить эту задачу, помогите пожалуйста.

Назовем допустимым преобразованием матрицы смещение строк матрицы на одну снизу вверх и столбцов на один справа налево, при этом первая строка опускается вниз, а первый столбец становится последним. Дана действительная квадратная матрица порядка n. С помощью допустимых преобразований добиться того, чтобы элемент матрицы, обладающий наименьшим значением, располагался в левом верхнем углу матрицы.

Заранее благодарна

Сообщение отредактировано: irena - 20.10.2004 20:02

[volvo]

Я сделал для 10-ти элементов ... измени n на 100 и добавь недостающие значения в массив...

Код

const
 n = 10;

 arr: array[ 1 .. n ] of integer =
   (2, 5, 8, 3, 9, 42, 5, 6, 14, 28);

{ нам не нужно само мин. или макс. значение -
 ищем только его индекс }
function minIndex: integer;
 var
   i: integer;
   min: integer;
 begin
   min := maxInt;
   for i := 1 to n do
     if min > arr[i] then
       begin
         min := arr[i]; minIndex := i
       end;
 end;

function maxIndex: integer;
 var
   i: integer;
   max: integer;
 begin
   max := - maxInt;
   for i := 1 to n do
     if max < arr[i] then
       begin
         max := arr[i]; maxIndex := i
       end;
 end;

var
 start_count, stop_count: integer;
 T, i, s: integer;
begin
 start_count := minIndex;
 stop_count := maxIndex;

 { если макс. число стояло перед мин. числом - меняем индексы местами }
 if start_count > stop_count then
   begin
     T := start_count;
     start_count := stop_count;
     stop_count := T;
   end;

 s := 0;
 for i := start_count to stop_count do
   s := s + arr[i];

 writeln( 's = ', s );
end.

Сообщение отредактировано: volvo - 21.10.2004 0:58