Предмет: Информатика,
автор: htedjhre
Помогите, прошу вас!!!!
Приложения:
![](https://files.topotvet.com/i/5b1/5b11a613d74479929d2556f1c6a3a8ba.png)
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(8,5,-10,10);
a.Println(4); Writeln(4*a.ColCount*'-');
// 3
a.Transform(t->2*t);
Writeln('*** Задание "3" ***');
a.Println(4); Writeln(4*a.ColCount*'-');
// 4
var s:=a.ElementsWithIndexes; // последовательность не хранится!
var em:=s.MinBy(t->t[0]);
Writeln('Минимальный элемент А[',em[1]+1,',',em[2]+1,']=',em[0]);
em:=s.MaxBy(t->t[0]);
Writeln('Максимальный элемент А[',em[1]+1,',',em[2]+1,']=',em[0]);
// 5
var i:=a.Rows.Select(r->r.Sum).ToArray.IndexMax;
Write('Строка ',i+1,': '); a.Row(i).Println
end.
Пример
*** Исходная матрица ***
8 -1 -5 -1 5
-4 2 5 -8 -8
7 -7 -2 -6 0
-10 -6 -1 3 3
1 5 9 1 6
4 6 2 6 -5
7 -8 1 4 -5
-10 4 7 3 6
--------------------
*** Задание "3" ***
16 -2 -10 -2 10
-8 4 10 -16 -16
14 -14 -4 -12 0
-20 -12 -2 6 6
2 10 18 2 12
8 12 4 12 -10
14 -16 2 8 -10
-20 8 14 6 12
--------------------
Минимальный элемент А[4,1]=-20
Максимальный элемент А[5,3]=18
Строка 5: 2 10 18 2 12
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(8,5,-10,10);
a.Println(4); Writeln(4*a.ColCount*'-');
// 3
a.Transform(t->2*t);
Writeln('*** Задание "3" ***');
a.Println(4); Writeln(4*a.ColCount*'-');
// 4
var s:=a.ElementsWithIndexes; // последовательность не хранится!
var em:=s.MinBy(t->t[0]);
Writeln('Минимальный элемент А[',em[1]+1,',',em[2]+1,']=',em[0]);
em:=s.MaxBy(t->t[0]);
Writeln('Максимальный элемент А[',em[1]+1,',',em[2]+1,']=',em[0]);
// 5
var i:=a.Rows.Select(r->r.Sum).ToArray.IndexMax;
Write('Строка ',i+1,': '); a.Row(i).Println
end.
Пример
*** Исходная матрица ***
8 -1 -5 -1 5
-4 2 5 -8 -8
7 -7 -2 -6 0
-10 -6 -1 3 3
1 5 9 1 6
4 6 2 6 -5
7 -8 1 4 -5
-10 4 7 3 6
--------------------
*** Задание "3" ***
16 -2 -10 -2 10
-8 4 10 -16 -16
14 -14 -4 -12 0
-20 -12 -2 6 6
2 10 18 2 12
8 12 4 12 -10
14 -16 2 8 -10
-20 8 14 6 12
--------------------
Минимальный элемент А[4,1]=-20
Максимальный элемент А[5,3]=18
Строка 5: 2 10 18 2 12
Приложения:
![](https://files.topotvet.com/i/38d/38de3481754a089c9f4f76d4a7708b7b.jpg)
Похожие вопросы
Предмет: Геометрия,
автор: matveypastushkov
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: zhunussovagulim2011
Предмет: Музыка,
автор: cheezburger