Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 1
Регистрация: 18.05.2017
Сообщений: 47

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

28.06.2017, 09:51. Показов 1311. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Создать матрицу NxM на интервале от 100 до 500. Найти элемент сумма цифр которого наибольшая, вывесили строку с этим элементом на экран.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.06.2017, 09:51
Ответы с готовыми решениями:

Вывести на экран то из чисел, сумма цифр которого — наибольшая с использованием процедур и функций
Даны четыре натуральных чисел. Вывести на экран то из них, сумма цифр которого - наибольшая

Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого - наибольшая
На языке Паскаль решить 2 способами: 1) с использованием процедур; 2) с использованием функций. Даны четыре натуральных числа. Вывести на...

Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого – наибольшая
составить программу 2 способами: 1) с использование процедур 2) с использованием функций

2
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
28.06.2017, 10:38
Лучший ответ Сообщение было отмечено Noucan как решение

Решение

Pascal
1
2
3
4
5
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.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33395 / 21505 / 8236
Регистрация: 22.10.2011
Сообщений: 36,902
Записей в блоге: 12
28.06.2017, 14:36
Можно не выбирать все суммы цифр в отдельный массив, а сразу задать критерий в Max, по которому будет найден максимум:
Pascal
1
2
  WriteLn('строка с элементом у которого наибольшая сумма цифр:');
  a.Row(a.Rows.Select(r -> r.Max(s)).ToArray.IndexMax).Println;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.06.2017, 14:36
Помогаю со студенческими работами здесь

Вывести на экран строку матрицы, сумма значений элементов которой наибольшая
Напишите программу в паскале,которая выводит на экран строку матрицы,сумма значений элементов которой наибольшая

Найдите элемент массива, сумма цифр которого наибольшая
Дан массив А, состоящий из n натуральных чисел. Найдите элемент массива, сумма цифр которого наибольшая. Проблема заключается в том,...

Найти число, сумма четных цифр которого наибольшая
Ввести с клавиатуры n чисел. Найти среди них число, сумма четных цифр которого наибольшая. (Используйте функцию подсчета суммы четных цифр...

Найти кратный элемент у которого сумма индексов наибольшая.....
Дана квадратная матрица. найти элементы кратные 2! вывести их на печать. и найти из них элемент у которого сумма индексов (координат) самая...

Даны 4 натуральных числа. Вывести на экран те, сумма цифр которых наибольшая
даны 4 натуральных числа. вывести на экран те, сумма цифр которых наибольшая


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru