Вопрос по информатике:
Матрицы. Вычислить произведение отрицательных элементов вещественной матрицы Bnxn, находящихся под главной диагональю (элементы диагонали не участвуют в обработке).
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.09.2016 02:29
- Информатика
- remove_red_eye 8822
- thumb_up 22
Ответы и объяснения 1
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.
- 05.09.2016 16:01
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.