Матрицы. Вычислить произведение отрицательных элементов вещественной матрицы Bnxn, находящихся под главной диагональю (элементы диагонали не участвуют в обработке).

var

B:array[1 ... 100, 1 ... 100] of real;

i, j, n:integer;

Pr:real;

flag:boolean;

begin

randomize;

write ('n = ');

readln (n);

if n < 2 then

begin

writeln ('некорректный размер матрицы');

Exit;

end;

for i : = 1 to n do

begin

for j : = 1 to n do

begin

B[i, j] : = (random (101) - 50) / 10;

write (B[i, j], ' ');

end;

writeln;

end;

Pr : = 1;

flag : = false;

for i : = 2 to n do

for j : = 1 to i - 1 do

if B[i, j] < 0 then

begin

flag : = true;

Pr : = Pr * B[i, j];

end;

if Flag then

writeln ('Pr = ', Pr)

else

writeln ('Нет ни одно отрицательного элемента ниже главной диагонали');

readln;

end.