Қыс өлені.
Ақ киімді, денелі, ақ сақалды,
Соқыр, мылқау, танымас тірі жанды.
Үсті-басы ақ қырау, түсі суық,
Басқан жері сықырлап, келіп қалды.
Дем алысы – үскірік, аяз бен қар,
Кәрі құдаң – қыс келіп, әлек салды.
Ұшпадай бөркін киген оқшырайтып,
Аязбенен қызарып ажарланды.
Бұлттай қасы жауып екі көзін,
Басын сіліксе, қар жауып, мазаңды алды.
Борандай бұрқ-сарқ етіп долданғанда,
Алты қанат ақ орда үй шайқалды.
Әуес көріп жүгірген жас балалар,
Беті-қолы домбығып, үсік шалды.
Шидем мен тон қабаттап киген малшы
Бет қарауға шыдамай теріс айналды.
Қар тепкенге қажымыс қайран жылқы
Титығы құруына аз-ақ қалды.
Қыспен бірге тұмсығын салды қасқыр,
Малшыларым, қор қылма итке малды.
Соныға малды жайып, күзетіңдер,
Ұйқы өлтірмес, қайрат қыл, бұз қамалды!
Ит жегенше Қондыбай, Қанай жесін,
Құр жібер мына антұрған кәрі шалды.
1)автобус,2)пешеход3)велосипед4)трамвай5)
<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
Я неучу английский, к большому сожелению у меня нмецкий
Любовь это нечто совсем иное .
Любовь сметает все преграды и поэтому делает возможным невозможное.
Любите у будте любимим ...❤
