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

6Darya6 6Darya6    3   19.11.2019 15:05    1

Ответы
Miky14 Miky14  10.10.2020 14:18

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.


Дан двумерный массив . заменить минимальный элемент суммой всех элементов.текст программы в pascal.​
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика