Question

Дан двумерный массив . Заменить минимальный элемент суммой всех элементов.
Текст программы в Pascal.​

Answer 1

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(5);

 Writeln;

 var t := a.ElementsWithIndices.MinBy(p -> p[0]);

 a[t[1], t[2]] := a.ElementsByRow.Sum;

 a.Println(5)

end.