Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 31.03.2010
Сообщений: 32
1

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

20.10.2010, 10:06. Просмотров 1733. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

2
Модератор
62498 / 46688 / 32180
Регистрация: 18.05.2008
Сообщений: 112,951
20.10.2010, 11:22 2
Лучший ответ Сообщение было отмечено Mr.Spock как решение

Решение

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
uses crt;
const nmax=10;
var a,b:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k:byte;
    s:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(50)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
writeln('Матрица сумм делителей:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    s:=0;
    for k:=1 to a[i,j] do
    if a[i,j] mod k=0 then s:=s+k;
    b[i,j]:=s;
    write(b[i,j]:4);
   end;
  writeln;
 end;
readln
end.
1
1 / 1 / 0
Регистрация: 31.03.2010
Сообщений: 32
20.10.2010, 12:24  [ТС] 3
Огромное спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2010, 12:24

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.