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

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

01-06-2019 15:14 Просмотры: 4
Ответы (1)
Далья Чурилина
0
2019-06-01 16:45:58

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.