Составьте в среде TPascal код программы, реализующей метод простых перестановок

[I am Russia]

Дан двумерный массив элементов. Необходимо найти максимальный элемент этого массива и его индексы.
ВОТ чвсть его.

Max := X[1, 1]; {Предположим, что максимумом является первый элемент}
Maxi := 1; {в этом случае запомним первую строку}
Maxj := 1; {и первый столбец}
for i := 1 to n do
for j := 1 to m do
        if X[i, j] > Max then {если среди элементов массива нашелся больший элемент, то}
          begin
              Max := X[i, j];{внесем новое найденное значение в переменную Мах}
              Maxi := i; {и не забудем запомнить индексы строки}
              Maxj := j; {и столбца этого элемента}
           end;
end;
end;

[min@y™]

и ?

[I am Russia]

помогите дописать программу

помогите дописать программу

[min@y™]

помогите дописать программу

какую программу?

[I am Russia]

понял.попробую обьяснить так как я понял задание.дан листинг,мне нужно запустить его в паскале,при проверки работы выдает что Maxi неверное выражение и нет такой переменной.не могу разобраться.непойму.незнаю.пытался неполучается.подскажите в чем моя ошибка.

[min@y™]

понял.попробую обьяснить так как я понял задание.дан листинг,мне нужно запустить его в паскале,при проверки работы выдает что Maxi неверное выражение и нет такой переменной.не могу разобраться.непойму.незнаю.пытался неполучается.подскажите в чем моя ошибка.

покажи оригинал задания (скан или фото) и скриншоты попыток

запустить его в паскале

а то знаю я вас – надо одно, а прсите ваще противоположное.

[I am Russia]

Разберем задачу 1. Дан двумерный массив элементов. Необходимо найти максимальный элемент этого массива и его индексы.
Так как элементы могут повторяться, то договоримся, что будем запоминать в программе только индексы первого максимального элемента. Опишем код, который будет выполнять поставленную задачу:

Max := X[1, 1]; {Предположим, что максимумом является первый элемент}
Maxi := 1; {в этом случае запомним первую строку}
Maxj := 1; {и первый столбец}
for i := 1 to n do
for j := 1 to m do
        if X[i, j] > Max then {если среди элементов массива нашелся больший элемент, то}
          begin
              Max := X[i, j];{внесем новое найденное значение в переменную Мах}
              Maxi := i; {и не забудем запомнить индексы строки}
              Maxj := j; {и столбца этого элемента}
           end;
end;
end;

На выходе получаем в переменной Мах значение максимального элемента в массиве, в переменной i – индекс, принадлежащий строке этого элемента, в переменной j – индекс его столбца.
Разберем следующую задачу (2). Дан двумерный массив элементов. Необходимо найти количество неотрицательных и отрицательных элементов в этом массиве. Ноль будем считать положительным числом.
Эта задача может быть решена таким образом, как показано в листинге 1.
Листинг 1.

Program m2;
Const n = 3; m = 2;
Var 
  x: array[1..n,1..m] of Integer;
  Max, i, j, otr, pol: Integer;
Begin
  {---заполнение массива с клавиатуры---}
  for i := 1 to n do
    for j := 1 to m do begin
      write('Введите элемент массива (', i, ',', j, ') = ');
      readln(x[i,j]);
    end;
  {---обработка массива---}
  otr := 0; {присвоим начальные значения}
  pol := 0; {присвоим начальные значения} 
  for i := 1 to n do {начало цикла обработки двумерного массива}
    for j := 1 to m do
      if X[i, j] >= 0 then {если среди элементов массива нашелся положительный элемент, то}
        begin
            pol := pol + 1;
        end else begin {иначе (если среди элементов массива нашелся не положительный элемент)}
            otr := otr + 1;
        end;
   {---вывод результатов---}
   WriteLn('Kolichestvo polozhitel`nyh elementov = ', pol);
   WriteLn('Kolichestvo otritzatel`nyh elementov = ', otr);
end.

Практическое задание

1. Запустите среду TPascal 7.0 / 7.1, и, используя информацию в теоретической части инструкционной карты выполните остальные пункты задания.
2. Составьте программу по задаче 1 из теоретической части работы.
3. Решите задачу:
Дан двумерный массив целых чисел. Необходимо в этом массиве найти элемент, соответствующий заданному с клавиатуры числу. Если такой элемент имеется в массиве – вывести его индексы, если такого нет – вывести соответствующее сообщение.
4. Решите задачу:
Дан двумерный массив целых чисел. Необходимо в этом массиве найти среднее арифметическое значение элементов с нечетными индексами.

и еще вопросы пожалуйста.

1. Объясните принцип работы алгоритма, находящего максимальный элемент побочной диагонали квадратной матрицы?
2. Как поменять местами n и m строки двумерного массива с одинаковым количеством строк и столбцов?
3. Как поменять местами R1 и R2 столбцы двумерного массива с одинаковым количеством строк и столбцов?

[min@y™]

скриншоты где?