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

Question

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

Comments

паскаль?

Answer 1

Если что, вот текст паскаль. Масив я не выводил
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.