Question

Дан массив Х(N, N). Найти количество положительных элементов матрицы, лежащих на главной диагонали (элементы главной диагонали с индексами (1,1), (2,2) и т.д.) Паскаль

Answer 1

Procedure TForm1.Button1Click(Sender: TObject);
var
  i, k : integer;
  x : array [1..10,1..10] of Integer;
begin
  k := 0;
  for i:=1 to 10 do
  begin
    x[i,i] := Random(100)-50;
    if (x[i,i]>0) then
      inc(k);
  end;
  Label1.Caption := 'Количество положительных элементов = ' + inttostr(k);
end;

Answer 2

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

def count_positive_elements_on_main_diagonal(matrix):
    # Получаем количество строк и столбцов в матрице
    rows = len(matrix)
    cols = len(matrix[0]) if rows > 0 else 0

# Инициализируем счетчик положительных элементов
    positive_count = 0

# Перебираем элементы главной диагонали
    for i in range(min(rows, cols)):
        if matrix[i][i] > 0:
            positive_count += 1

return positive_count

# Пример использования
matrix = [
    [1, -2, 3],
    [4, 5, 6],
    [-7, 8, 9]
]

result = count_positive_elements_on_main_diagonal(matrix)
print("Количество положительных элементов на главной диагонали:", result)

В этом примере `count_positive_elements_on_main_diagonal` принимает матрицу в качестве аргумента и возвращает количество положительных элементов на главной диагонали. Обратите внимание, что мы используем минимум из числа строк и столбцов для обхода только тех элементов, которые находятся на главной диагонали.

Если у вас есть конкретный язык программирования, на котором вы хотели бы написать код, или если у вас есть какие-то дополнительные вопросы, дайте мне знать!