Задание:
Матрицы. Вычислить произведение отрицательных элементов вещественной матрицы Bnxn, находящихся под главной диагональю (элементы диагонали не участвуют вобработке).
Решение:
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.
Знаете другой ответ?