Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
VLADiken
0 / 0 / 0
Регистрация: 24.04.2014
Сообщений: 3
1

Заполнить массив из 10 элементов, чтобы каждый элемент был равен сумме делителей своего номера

24.04.2014, 23:39. Просмотров 329. Ответов 3
Метки нет (Все метки)

Заполнить массив из 10 элементов каждый элемент был равен сумме делителей своего номера
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2014, 23:39
Ответы с готовыми решениями:

Сформировать массив так, чтобы каждый элемент, начиная с третьего, был равен произведеннию двух предыдущих
uses crt; var a:array of integer; i,n:integer; begin writeln (' Введите...

Создать массив, каждый элемент которого равен сумме двух предыдущих элементов
Известны два первых элемента массива B: B=4, B=8.Создать массив, каждый элемент...

Вывести массив размера N, первый элемент которого равен А, второй В, а каждый предыдущий элемент равен сумме всех предыдущих
Данны целые числа N(<2), А и В. сформулировать и вывести целочисленный массив...

Сформировать одномерный массив, каждый элемент которого равен сумме отрицательных нечетных элементов
2. Дан двумерный массив размером 5 x 6. Сформировать одномерный массив, каждый...

Даны 2 массива. Получить 3 массив, каждый элемент которого равен сумме соотвестветствующих элементов исходных
2) Даны 2 одномерных массива одинаковой длины.Получить 3 массива такой же...

3
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
24.04.2014, 23:55 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,s:integer;
begin
 clrscr;
  writeln('ГЊГ*Г±Г±ГЁГў :');
   for i:=1 to n do
    begin
     if (i mod i=0) then
      s:=s+i;
     a[i]:=s;
    end;
  for i:=1 to n do
   write(a[i]:4);
 readkey;
end.
1
VLADiken
0 / 0 / 0
Регистрация: 24.04.2014
Сообщений: 3
25.04.2014, 00:01  [ТС] 3
как я понял, создать 2массив ввести числа рандом. Потом в этом 2массиве в 1ой строке выбрать любое число например 5 и сравнивать сколько 5 в 1ой строке, допустим, что 5ок оказалось 4, вот эту 4ку надо занести в одномерный массив. И тоже самое с 2ой строкой 2массива и с 3ей и т.д.
а вот как в программе я не пойму..
0
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
25.04.2014, 00:03 4
VLADiken, ну щас чет придумаю..

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,s:integer;
begin
 clrscr;
  writeln('Массив :');
   for i:=1 to n do
    begin
     if (i mod i=0) then
      s:=s+i;
     a[i]:=s;
    end;
  for i:=1 to n do
   write(a[i]:4);
 readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2014, 00:03

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

Получить третий массив С такой же размерности, каждый элемент которого равен сумме соответствующих элементов массивов А и В.
3. Даны два одномерных массива А и В одинаковой размерности. Получить третий...

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


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

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

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