В данной действительной квадратной матрице порядка N*N найти сумму положительных элементов под побочной диагональю

Если что, вот текст паскаль. Масив я не выводил
program pr1;
uses crt
var i,n,s,j: integer;
A:array [1..99,1..99] of integer;
begin
clr scr;
writeln(ввести мерность массива);
readln(n);
s:=0;
for i:=1 to n do begin
for j:=1 to n do begin
writeln(введите элемент массива);
readln(a[i]);
end;
end;
for i:=1 to n do begin
for j:=1 to n do begin
if  i+j=n+2 and i+j=n+3 and i+j=n+n then begin
s:=s+a[i];
end;
end;
end;
writeln(s, -сумма элементов под побочной диагональю);
end.

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