// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите её версию!
begin var b:=MatrRandom(4,4,-5,5); b.Println(3); var p:=1; var s:=0; Write('Элементы главной диагонали: '); for var i:=0 to 3 do for var j:=0 to 3 do if i<j then p*=b[i,j] else if i>j then s+=b[i,j] else Write(b[i,j]:3); Writeln(Newline,'П=',p,', S=',s) end.
Пример -2 -1 -2 4 0 1 1 -3 0 1 5 5 3 4 3 2 Элементы главной диагонали: -2 1 5 2 П=-120, S=11
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
ЭТО ПО ИНФОРМАТИКЕ, НУЖНО СОСТАВИТЬ ПРАГРАММУ В Python.ТУТ 3 ЗАДАЧИ.
// Внимание! Если программа не работает, обновите её версию!
begin
var b:=MatrRandom(4,4,-5,5); b.Println(3);
var p:=1;
var s:=0;
Write('Элементы главной диагонали: ');
for var i:=0 to 3 do
for var j:=0 to 3 do
if i<j then p*=b[i,j]
else
if i>j then s+=b[i,j]
else Write(b[i,j]:3);
Writeln(Newline,'П=',p,', S=',s)
end.
Пример
-2 -1 -2 4
0 1 1 -3
0 1 5 5
3 4 3 2
Элементы главной диагонали: -2 1 5 2
П=-120, S=11