Паскаль Написать функцию нахождения суммы наибольших цифр частей массива. Массив
Паскаль
Написать функцию нахождения суммы наибольших цифр элементов массива. Массив состоит из естественных чисел. Помогите пожалуйста
Люда Вигман
Растолкуйте подробнее, что Вы имеет в виду? Вот массив из пяти частей, в нем числа 18, 62, 3, 17, 54. Какие числа в данном случае войдут в сумму и почему?
Эльвира Олесюк
18 максимальная цифра 8 62 наибольшая 6 ... 8+6+3+7+5=32
1 ответ
Вася Котс
Const
n = 10;
type
Vector = array[1..n] of integer;
function SumDig(a: Vector): integer;
var
i, m, d, s, max: integer;
begin
s := 0;
for i := 1 to n do
begin
m := a[i];
max := -1;
repeat
d := (m mod 10);
if max lt; d then max := d;
m := m div 10
until m = 0;
s := s + max
end;
SumDig := s
end;
var
i: integer;
M: Vector;
begin
Writeln('Введите ', n, ' чисел:');
for i := 1 to n do Read(M[i]);
Writeln('Сумма наибольших цифр всех чисел равна ', SumDig(M))
end.
Тестовое решение:
Введите 10 чисел:
613 269 839 10 575 569 812 56 401 616
Сумма наибольших цифр всех чисел одинакова 65
n = 10;
type
Vector = array[1..n] of integer;
function SumDig(a: Vector): integer;
var
i, m, d, s, max: integer;
begin
s := 0;
for i := 1 to n do
begin
m := a[i];
max := -1;
repeat
d := (m mod 10);
if max lt; d then max := d;
m := m div 10
until m = 0;
s := s + max
end;
SumDig := s
end;
var
i: integer;
M: Vector;
begin
Writeln('Введите ', n, ' чисел:');
for i := 1 to n do Read(M[i]);
Writeln('Сумма наибольших цифр всех чисел равна ', SumDig(M))
end.
Тестовое решение:
Введите 10 чисел:
613 269 839 10 575 569 812 56 401 616
Сумма наибольших цифр всех чисел одинакова 65
Арсений Тетцнер
сказано же что необходимо функцию написать, но всё одинаково спасибо
Ольга Бурштина
Поправил, никаких заморочек
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов