// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрицах:');
Writeln('*** Исходная матрица A ***');
Randomize;
var a:=MatrGen(n,n,(i,j)->(Random(101)-50)*0.5);
a.Println(9,2); Writeln(9*a.ColCount*'-');
Writeln('*** Исходная матрица B ***');
var b:=MatrGen(n,n,(i,j)->(Random(101)-50)*0.5);
b.Println(9,2); Writeln(9*a.ColCount*'-');
var v:=b.Rows.Select(r->r.Max).ToArray;
for var i:=0 to n-1 do
for var j:=0 to n-1 do
a[i,j]*=v[i];
Writeln('*** Результирующая матрица A ***');
a.Println(9,2)
end.
Пример
Количество строк/столбцов в матрицах: 5
*** Исходная матрица A ***
6.50 -7.00 19.00 10.00 6.50
-21.00 24.50 8.50 3.50 16.00
-22.00 -3.50 -15.50 15.50 18.50
-11.50 7.50 -24.50 6.00 19.00
9.50 -2.00 -1.00 -4.50 15.50
---------------------------------------------
*** Исходная матрица B ***
-11.50 13.50 12.00 -19.00 18.00
23.00 18.00 -21.50 4.00 -11.50
-17.00 20.00 2.50 -20.00 17.00
17.50 -1.00 -10.50 -20.00 -23.50
-6.50 1.50 23.50 -4.00 24.50
---------------------------------------------
*** Результирующая матрица A ***
117.00 -126.00 342.00 180.00 117.00
-483.00 563.50 195.50 80.50 368.00
-440.00 -70.00 -310.00 310.00 370.00
-201.25 131.25 -428.75 105.00 332.50
232.75 -49.00 -24.50 -110.25 379.75
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
Randomize;
var a:=MatrGen(n,n,(i,j)->(Random(101)-50)*0.5);
a.Println(9,2); Writeln(9*a.ColCount*'-');
var max:=real.MinValue;
for var i:=0 to n-1 do
for var j:=i to n-1 do
if a[i,j]>max then max:=a[i,j];
Writeln('Найдено максимальное значение ',max:0:1)
end.
Пример
Количество строк/столбцов в матрице: 6
*** Исходная матрица ***
-8.00 15.00 -6.00 -13.50 22.50 6.00
2.50 2.00 18.00 20.00 5.00 -11.00
-20.00 19.00 -16.50 10.00 17.50 12.00
-7.00 0.50 -5.50 18.50 -22.00 6.50
-16.00 15.50 -20.00 17.50 6.00 13.50
-9.50 -5.50 4.00 -4.00 25.00 -19.50
------------------------------------------------------
Найдено максимальное значение 22.5
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
var a:=MatrFill(n,n,0);
a[(n-1) div 2, (n-1) div 2]:=1;
a.Println(2)
end.
Пример
Количество строк/столбцов в матрице: 13
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 1 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0