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

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

09.05.2012, 18:07. Показов 2783. Ответов 2
Метки нет (Все метки)

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

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

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

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

Создать новый одномерный массив, элементами которого являются элементы исходного, не превосходящие некоторого числа
Задачи на одномерные массивы 2 Из одномерного числового массива размерности n создать новый...

2
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.05.2012, 18:23 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
const nmax=40;
var a: array [1..nmax] of integer;
    i,n: byte;
    sum,j: integer;
    
begin
repeat
write('Количество элементов, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Исходный массив ');
for i:=1 to n do
    begin
    a[i]:=random(1000);
    write(a[i]:5);
    sum:=0;
    for j:=1 to a[i] do
        if a[i] mod j=0 then inc(sum,j);
    a[i]:=sum;
    end;
writeln;
writeln('Итоговый массив');
for i:=1 to n do
    write(a[i]:5);
readln;
end.
2
0 / 0 / 0
Регистрация: 01.05.2012
Сообщений: 83
09.05.2012, 18:29  [ТС] 3
Спасибо Вам большое!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2012, 18:29
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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