Помогите решить задачу в Паскале Дан двумерный массив. Найти сумму и количество положительных элементов, лежащих выше главной диагонали.

Нужно пройти по элементам двумерного массива и рассматривать только те элементы, которые находятся выше главной диагонали.

Главная диагональ — это элементы, у которых номер строки равен номеру столбца (i = j).
Элементы выше главной диагонали находятся там, где номер столбца больше номера строки (j > i).

Например, для массива:

1  2  3
4  5  6
7  8  9

выше главной диагонали находятся элементы:

   2  3
      6

То есть нужно проверять только элементы с условием j > i.

Программа на Паскале:

pascal
program SumAboveDiagonal;

const
  n = 5;

var
  a: array[1..n, 1..n] of integer;
  i, j: integer;
  sum, count: integer;

begin
  writeln('Введите элементы массива:');

  for i := 1 to n do
    for j := 1 to n do
      read(a[i, j]);

  sum := 0;
  count := 0;

  for i := 1 to n do
    for j := 1 to n do
    begin
      if (j > i) and (a[i, j] > 0) then
      begin
        sum := sum + a[i, j];
        count := count + 1;
      end;
    end;

  writeln('Сумма положительных элементов выше главной диагонали: ', sum);
  writeln('Количество положительных элементов: ', count);

end.

Объяснение:

• j > i — проверяет, что элемент находится выше главной диагонали.

• a[i,j] > 0 — оставляет только положительные элементы.

• sum хранит сумму найденных элементов.

• count считает их количество.

Если, например, выше диагонали находятся числа 2, -3, 6, 4, то в сумму попадут только 2 + 6 + 4 = 12, а количество будет равно 3.