Составить программу ** языке паскаль задание: дана матрица А(N, N). Составить программу...

Question

Составить программу на языке паскаль
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали

Answer 1

Var n, i, j, ans : integer;
a : array[,] of integer;
begin
    read(n);
    ans := 0;
    SetLength(a, n + 1, n + 1);
    for i := 1 to n do
        for j := 1 to n do
            read(a[i, j]);
    for i := 1 to n do
        for j := i + 1 to n do
            if (a[i, j] > 0) then
                ans := ans + 1;
    writeln(ans);
end.

Comments

а ans и setLength это что?)

---

SetLength - задать в двумерном массиве a n строк и n столбцов. Можно этого не делать, а просто написать во второй строке, например, a : array[3000, 3000] of integer; или другие значения. ans - ответ задачи