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

@Pawws · Регистрация: 26.06.2015

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

@OneTime · 29.04.2019, 13:16

Всё еще нет ответа?(

@ZX Spectrum-128 · 29.04.2019, 15:45

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

Pascal

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.

@Pawws 0 / 0 / 0 Регистрация: 26.06.2015 Сообщений: 4
		1
	Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива 30.10.2016, 11:16. Показов 871. Ответов 2 Метки нет (Все метки) Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@OneTime 0 / 0 / 0 Регистрация: 15.04.2019 Сообщений: 2
	29.04.2019, 13:16	2
	Всё еще нет ответа?( 0

Опции темы