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

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

30.10.2016, 11:16. Показов 871. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

2
0 / 0 / 0
Регистрация: 15.04.2019
Сообщений: 2
29.04.2019, 13:16 2
Всё еще нет ответа?(
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
29.04.2019, 15:45 3
Взято отсюда:
Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива

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
const
  n = 40;
 
var
  a, b: array[1..n] of integer;
  i, j, k: integer;
  s: integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(n)+1;
    write(a[i]:4);
  end;
  writeln;
  for i := 1 to n do
  begin
    s := 0;
    for k := 1 to a[i] do
      if a[i] mod k = 0 then 
        s := s + k;
    b[i] := s;
    write(b[i]:4);
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2019, 15:45
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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