0 / 0 / 0
Регистрация: 30.10.2015
Сообщений: 6
1

Создать массив, элементами которого являются суммы цифр каждого элемента исходного массива

22.11.2015, 13:52. Показов 1742. Ответов 2

Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый
массив, элементами которого являются суммы цифр каждого числа старого массива. Нужна процедура или функция для данной задачи.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2015, 13:52
Ответы с готовыми решениями:

Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами...

Создать новый массив, элементами которого являются все отрицательные элементы исходного массива
Добрый день.Не могли бы вы помочь с задачей на одномерный массив. 6.3. Дан массив С(п). Создать...

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами...

2
0 / 0 / 0
Регистрация: 30.10.2015
Сообщений: 6
27.11.2015, 12:26  [ТС] 2
Help, please
0
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
28.11.2015, 10:24 3
Лучший ответ Сообщение было отмечено Syncmaxim как решение

Решение

Взято отсюда:
Составить новый массив с суммой четных цифр в каждом элементе исходного массива

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function sum(a: integer): integer;
var
  s: integer;
begin
  s := 0;
  repeat
    s := s + (a mod 10);
    a := a div 10;
  until a = 0;
  sum := s;
end;
 
var
  i, n: integer;
  a, b: array[1..100] of integer;
 
begin
  write('Введите размерность массива: '); readln(n);
  for i := 1  to n do 
    readln(a[i]);
  writeln('Массив с суммой цифр каждого элемента исходного массива:');
  for i := 1 to n do
  begin
    b[i] := sum(a[i]);
    write(b[i], ' ');
  end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2015, 10:24
Помогаю со студенческими работами здесь

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив элементами которого являются суммы делителей каждого числа старого исходного
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив элементами...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru