Регистрация
Войти
Стать экспертом Правила
Информатика

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

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