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

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

16.10.2017, 23:22. Показов 2220. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
746 / 493 / 285
Регистрация: 10.09.2015
Сообщений: 1,530
17.10.2017, 01:42 2
Лучший ответ Сообщение было отмечено ander2014638 как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
function sumDigitsNumber(number : integer) : integer;
var
   num : integer;
begin
   result := 0;
   num := abs(number);
   while (num <> 0) do
   begin
      result := result + num mod 10;
      num := num div 10;
   end;
   sumDigitsNumber := result;
end;
 
//######################################################################
 
procedure fillRandomArray(var arr : array of integer; startRange : integer; endRange : integer);
var 
  i : integer;
  
begin
   if length(arr) > 0 then
   begin
      randomize;
      for i := 0 to length(arr) - 1 do arr[i] := random(endRange + 1 - startRange) + startRange;
   end;
end;
 
//######################################################################
 
function toString(arr : array of integer) : String;
var
   i : integer;
begin
   result := '[';
   if length(arr) > 0 then
   begin
      for i := 0 to length(arr) - 1 do
      begin
         result := result + arr[i];
         if i <> length(arr) - 1 then result := result + ', ';
      end;
   end;
   toString := result + ']';
end;
 
//######################################################################
 
function readConsole(text : String; startRange : integer; endRange : integer) : integer;
begin
   result := startRange - 1;
   while (result < startRange) or (result > endRange) do
   begin
      write(text);
      readln(result);
   end;
   readConsole := result;
end;
 
//######################################################################
 
procedure sumNumber(arr : array of integer; var sumArr : array of integer);
var
   i : integer;
   
begin
   if length(arr) = length(sumArr) then
   begin
      for i := 0 to length(arr) - 1 do sumArr[i] := sumDigitsNumber(arr[i]);
   end;
end;
 
//######################################################################
 
var
   arr    : array of integer;
   sumArr : array of integer;
   n      : integer;
   
begin
   n := readConsole('Введите размер массива (1 <= n <= 40): ', 1, 40);
   setLength(arr, n);
   setLength(sumArr, n);
   fillRandomArray(arr, 1, 100);
   sumNumber(arr, sumArr);
   
   writeln('Массив: ', toString(arr));
   write('Массив сум цифр в числе: ', toString(sumArr));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2017, 01:42
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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