Предмет: Информатика, автор: htedjhre

Помогите, прошу вас!!!!

Приложения:

Ответы

Автор ответа: Аноним
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
Приложения:
Похожие вопросы
Предмет: Математика, автор: Аноним