Который очень добрый трудолюбивый
Кышкы каникулларда мин әтием белэн циркка бардым.Без дуслар белән чыршыга (елкага) бардык. Таудан чанада шудык, паркта чаңгыда шудык, безгә бик күңелле булды. Шулай ук мәктәптә Яңа ел бәйрәме булды.Без балалар белән кар бөртекләре биюен биедек. Кышкы каникулларны мин күңелле үткәрдем.
<em>// PascalABC.NET 3.3, сборка 1541 от 29.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
Количество строк/столбцов в матрицах: 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.
<u>Пример</u>
Количество строк/столбцов в матрице: 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.
<u>Пример</u>
Количество строк/столбцов в матрице: 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
1. Большой, круглый.
2. Оранжевая.
3. Маленький.
4. Зеленый.
5. Кислый, желтый.
Вот, посмотри. если какие-то вопросы возникнут, то напиши в лс