Матрицы. Вычислить произведение отрицательных элементов ...

Vasy

varB:array[1..100, 1..100] of real;i, j, n:integer;Pr:real;flag:boolean;beginrandomize;write('n = ');readln(n);if n < 2 thenbeginwriteln('некорректный размер матрицы');Exit;end;for i := 1 to n dobeginfor j := 1 to n dobeginB[i, j] := (random(101) - 50) / 10;write(B[i, j], ' ');end;writeln;end;Pr := 1;flag := false;for i := 2 to n dofor j := 1 to i - 1 doif B[i, j] < 0 thenbeginflag := true;Pr := Pr * B[i, j];end;if Flag thenwriteln('Pr = ', Pr)elsewriteln('Нет ни одно отрицательного элемента ниже главной диагонали');readln;end.