Question

Pascal Дан двумерный массив Найти наименьший елемент побочной диагонали. Заранее спасибо!

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*n*'-');
  var min:=a[0,n-1];
  for var i:=1 to n-1 do
    if a[i,n-i-1]<min then min:=a[i,n-i-1];
  Writeln('Минимальный элемент на побочной диагонали равен ',min)
end.

Пример
Количество строк и столбцов в массиве: 7
*** Исходный массив ***
 -73  45 -54  73  62 -65  27
 -42  68 -61 -92  69 -44  73
  28 -90  85  10  69 -42  -8
  15  12   9 -52 -97  11  61
  -9 -68  -2 -93  85 -48 -35
  61 -76 -78  91 -23 -15  16
 -25  51 -38  60 -19 -22  -3
----------------------------
Минимальный элемент на побочной диагонали равен -76

Answer 2

Моя подсказка о том, как идти в цикле по побочной диагонали, абсолютно соответствовала вопросу и, возможно, заставила бы человека попробовать решить самому. И зачем её тогда удалять? По-моему вы наделены некоторыми привилегиями и лезете на рожон. Вы написали алгоритм, используя конструкции, которые вряд ли поймет школьник. В школьной программе не учат методам из самого нового Pascal ABC .NET.

Answer 3

1. Все вопросы по модерации обсуждаются ТОЛЬКО в Личных Сообщениях, а претензии направляются по имеющейся в нижней части странице ссылке. 2. Подсказки даются в комментариях. А ответ согласно параграфу 3 Правил, должен быть полным и исчерпывающим.