Составить алгоритм и написать программу для решение с использованием двумерных массивов и конструкций цикла в цикле: вычислить сумму положительных элементов матрицы а (10х10), расположенных над главной диагональю. индекс номера строки i изменяется от 1 до 9, а индекс номера столбца j изменяется от –i+1 до 10.
i,j,sum,np: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do readln(a[i,j]);
sum:=0;
for np:=1 to 9 do begin
i:=np;
for j:=1 to np do begin
if a[i,j]>0 then sum:=sum+a[i,j];
i:=i-1;
end;
end;
writeln('Сумма элементов, расположенных выше главной диагонали равна ',sum);
readln
end.