Question

Написать программу, вычисляющую сумму чисел, стоящих над главной диагональю и делящихся на 3.

Answer 1

===== PASCALABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := MatrRandom(n, n, -99, 99);

 a.Println;

 var s := 0;

 for var row := 0 to n - 2 do

   for var col := row + 1 to n - 1 do

     if a[row, col] mod 3 = 0 then

       s += a[row, col];

 Print(s)

end.

Answer 2

Для решения этой задачи, давайте предположим, что матрица является квадратной и представлена в виде двумерного списка в Python. Мы будем считать, что числа выше главной диагонали находятся в строках с меньшими индексами и столбцах с большими индексами. Вот программа, которая выполняет требуемое действие:

pythonCopy code
def sum_numbers_above_diagonal(matrix):
    n = len(matrix)
    sum_above_diagonal = 0

    for i in range(n):
        for j in range(i+1, n):  # Только числа выше главной диагонали (j > i)
            if matrix[i][j] % 3 == 0:
                sum_above_diagonal += matrix[i][j]

    return sum_above_diagonal

# Пример матрицы 3x3, замените ее на свою или считайте из файла/консоли
matrix_example = [
    [1, 2, 3],
    [4, 5, 6],
    [7, 8, 9]
]

result = sum_numbers_above_diagonal(matrix_example)
print("Сумма чисел над главной диагональю и делящихся на 3:", result)

Программа берет матрицу matrix_example, проходит по элементам выше главной диагонали и суммирует числа, которые делятся на 3. Вы можете изменить matrix_example на свою собственную матрицу или считать матрицу из файла или ввода пользователя.