Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Матрицы. Вычислить произведение отрицательных элементов вещественной матрицы 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.