Найти элемент матрицы, сумма цифр которого наибольшая; вывести строку с этим элементом на экран

@Noucan · Регистрация: 18.05.2017

Студворк — интернет-сервис помощи студентам

Создать матрицу NxM на интервале от 100 до 500. Найти элемент сумма цифр которого наибольшая, вывесили строку с этим элементом на экран.

@JuriiMW · 28.06.2017, 10:38

Pascal

function s(n:Integer):Integer:=(n>0?(n mod 10)+s(n div 10):0);
begin
  var a := MatrRandomInteger(ReadLnInteger('n ='), ReadLnInteger('m ='), 100, 500).Println;
  WriteLn('строка с элементом у которого наибольшая сумма цифр:'); a.Row(a.Rows.Select(c->c.Select(i->s(i)).max).ToArray.IndexMax).Println;
end.

@volvo · 28.06.2017, 14:36

Можно не выбирать все суммы цифр в отдельный массив, а сразу задать критерий в Max, по которому будет найден максимум:

Pascal

1 2	WriteLn('строка с элементом у которого наибольшая сумма цифр:'); a.Row(a.Rows.Select(r -> r.Max(s)).ToArray.IndexMax).Println;

@Noucan 0 / 0 / 1 Регистрация: 18.05.2017 Сообщений: 47
		1
	Найти элемент матрицы, сумма цифр которого наибольшая; вывести строку с этим элементом на экран 28.06.2017, 09:51. Показов 1161. Ответов 2 Метки нет (Все метки) Создать матрицу NxM на интервале от 100 до 500. Найти элемент сумма цифр которого наибольшая, вывесили строку с этим элементом на экран. 0

	28.06.2017, 14:36

Опции темы

Найти элемент матрицы, сумма цифр которого наибольшая; вывести строку с этим элементом на экран

Решение