Дана матрица А размером 4х3. Создать процедуру поиска максимального значения в каждой...

Question

Дана матрица А размером 4х3. Создать процедуру поиска максимального значения в каждой строке матрицы. Создать таблицы с исходными данными и результатами выполнения процедуры.

Comments

это надо в экселе делать

---

а где написано про Паскаль?

Answer 1

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

procedure MaxR(a:array[,] of integer; var b:array of integer);
begin
  b:=a.Rows.Select(r->r.Select(x->x).Max).ToArray
end;

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(4,3,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:array of integer;
  MaxR(a,b);
  Write('Максимумы построчно: '); b.Println
end.

Пример
*** Исходный массив ***
  18 -32 -82
  31  44 -16
 -32 -28   2
 -14  -6 -82
------------
Максимумы построчно: 18 44 2 -6