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

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.

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

пользоветель-это система их бывает много есле создать.

програмист-это человек который создает программу