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

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

28.10.2014, 10:49. Показов 519. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
Супер-модератор
6080 / 2820 / 1298
Регистрация: 04.03.2013
Сообщений: 5,736
Записей в блоге: 1
28.10.2014, 12: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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
var
  a, b : array[1..10, 1..10] of integer;  
  i, j, n, m : integer;
 
function sumOfDigits(z : integer) : integer;
var x : integer;
begin
  x := 0;  
  while z  <> 0 do
  begin
    x := x + z mod 10;
    z := z div 10
  end;
  sumOfDigits := x
end;
 
BEGIN
  repeat
    write('введите размерности массива [1..10, 1..10]: ');
    readln(n, m);
    if (not (n in [1..10])) or (not (m in [1..10])) then writeln('повторите ввод')
  until (n in [1..10]) and (m in [1..10]);
  randomize;
  writeln('массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(1000);
      write(a[i,j]:4)
    end;
    writeln
  end;
  writeln('массив сумм цифр каждого числа:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      b[i,j] := sumOfDigits(a[i,j]);
      write(b[i,j]:4)
    end;
    writeln
  end
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2014, 12:23
Помогаю со студенческими работами здесь

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

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

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

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

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

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


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

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

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