Решение на паскаль. начало решения задач одинаковое, а дальше см. внизу
program xxx; var b: array [1..6, 1..6] of integer; i, j, s : integer; begin for i:= 1 to 6 do for j:=1 to 6 do b[i,j]:= random(131)-65; writeln ('исходная матрица В:'); for i:=1 to 6 do begin for j:=1 to 6 do write (b[i,j]:4); writeln end;
задание 1. s:=0; for i:= 1 to 6 do if b[i,3]>0 then s:=s+b[i,3]; writeln ('сумма положительных элементов 3-го столбца', s) end.
задание 2. i:=2; while i<=6 do begin for j:= 1 to 6 do if b[i,j]<0 then b[i,j]:=0; i:=i+2 end; writeln ('полученная матрица В:'); for i:=1 to 6 do begin for j:=1 to 6 do write (b[i,j]:4); writeln end end.
главная диагональ --- это набор элементов с координатами (индексами) (i,i), где i∈[1, n]. n -- размерность матрицы, а вот как быть с транспонированием, например, трёхмерной матрицы? какой смысл оно имеет в этом случае? как составить условие обмена элементов? примечание: вообще состоит в том, чтобы сделать матрицу самосопряжённой, переписать такой вот код для случая произвольной конечной размерности: -- данный код для двумерной матрицы копирует одну её половину (если резать по диагонали) на вторую, при этом комплексно сопрягая элементы. а точнее -- в этом коде непонятно только условие обмена новое -то есть какие координаты поставить: если очередной matrixelement (в эту переменную получаем очередной элемент матрицы) имеет набор координат (x,).
начало решения задач одинаковое, а дальше см. внизу
program xxx;
var b: array [1..6, 1..6] of integer;
i, j, s : integer;
begin
for i:= 1 to 6 do
for j:=1 to 6 do
b[i,j]:= random(131)-65;
writeln ('исходная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end;
задание 1.
s:=0;
for i:= 1 to 6 do
if b[i,3]>0 then s:=s+b[i,3];
writeln ('сумма положительных элементов 3-го столбца', s)
end.
задание 2.
i:=2;
while i<=6 do begin
for j:= 1 to 6 do
if b[i,j]<0 then b[i,j]:=0;
i:=i+2
end;
writeln ('полученная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end
end.
главная диагональ --- это набор элементов с координатами (индексами) (i,i), где i∈[1, n]. n -- размерность матрицы, а вот как быть с транспонированием, например, трёхмерной матрицы? какой смысл оно имеет в этом случае? как составить условие обмена элементов? примечание: вообще состоит в том, чтобы сделать матрицу самосопряжённой, переписать такой вот код для случая произвольной конечной размерности: -- данный код для двумерной матрицы копирует одну её половину (если резать по диагонали) на вторую, при этом комплексно сопрягая элементы. а точнее -- в этом коде непонятно только условие обмена новое -то есть какие координаты поставить: если очередной matrixelement (в эту переменную получаем очередной элемент матрицы) имеет набор координат (x,).