В матрице n-го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали - Pascal ABC

Формулировка задачи:

В матрице n-го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали, и минимальный среди элементов, лежащих выше главной диагонали.

Код к задаче: «В матрице n-го порядка найти максимальный среди элементов, лежащих ниже побочной диагонали - Pascal ABC»

textual
  Max := A[2,n];
  Min := A[1,2];
  for i := 1 to n do begin
    for j := 1 to n do begin
      if (j > n - i + 1) and (A[i,j] > Max) then
        Max := A[i,j];
      if (j > i) and (A[i,j] < Min) then
        Min := A[i,j];
    end;
  end;
  WriteLn('Max: ', Max);
  WriteLn('Min: ', Min);

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

8   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ