Question

Как найти массив чрезмерности NxN. Найти минимальный элемент в заштрихованной области. Границы считаются принадлежащим заштрихованной области? в моем случае (К) то есть правый треугольник. uses crt; {размер массива} const n = 3; {объявляем переменные} var {матрица размера 9x9} a: array[1..n, 1..n] of integer; {сумма} sum: integer; {индексы для циклов} i, j: integer; begin clrscr; randomize; {заполняем массив} for i := 1 to n do for j := 1 to n do a[i,j] := random(10); {печатаем массив} writeln; writeln('Massiv'); for i := 1 to n do begin for j := 1 to n do write(a[i,j]:3); writeln; end; {находим сумму заштрихованной области} {Правая половина} sum := 0; for i := 1 to n div 1+1 do for j := i to n - i + 1 do sum := sum + a[i, j]; {Печатаем сумму заштрихованной области} writeln; writeln; writeln('Summa = ', sum); readln; end. в итоге выходит что он считает верхний треугольник то есть как в (Е) я более чем уверен дело в параметрах цикла раздела "находим сумму заштрихованной области"

Answer 1

Да, дело в цикле. Там он специально настроен на этот пункт. Замените его на
for i := 1 to n  do
        for j := i to n do
            if (i+j>n) then sum := sum + a[i, j];
И все заработает. Надеюсь, Вам можно применять ветвления. Циклом я отбираю пункт Б, и ветвлением отбираю пункт Г. Их слиянием как раз и есть пункт К.