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

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

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

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

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

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

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

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

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

3
Svager
398 / 377 / 408
Регистрация: 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
398 / 377 / 408
Регистрация: 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
25.04.2014, 00:03
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2014, 00:03

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

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

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

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


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

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

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