Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Russell
0 / 0 / 0
Регистрация: 05.12.2014
Сообщений: 5
1

Дан одномерный массив случайных целых чисел. Разделить каждый элемент массива на его индекс

05.12.2014, 08:51. Просмотров 1009. Ответов 3
Метки нет (Все метки)

Дан одномерный массив W из 10 случайных целых чисел, каждое из которых лежит в пределах от 1 до 100. Получите новый массив R, где каждый элемент создается из массива W делением соответствующего элемента на его индекс.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2014, 08:51
Ответы с готовыми решениями:

Дан массив целых случайных чисел
Дан массив целых случайных чисел (размер массива определяет пользователь, но в диапазоне )....

Дан массив целых чисел. Найти минимальный элемент массива и его порядковый номер
Дан массив целых чисел. Найти минимальный элемент массива и его порядковый номер. Как составить...

Дан массив целых чисел разделить на первый элемент
Дан массив целых чисел разделить на первый элемент

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

Ввести одномерный массив A из N элементов. Каждый третий элемент массива умножить на собственный индекс
Ввести одномерный массив A из N элементов. Каждый третий элемент массива умножить на собственный...

3
Апострофф
Заблокирован
05.12.2014, 09:22 2
Лучший ответ Сообщение было отмечено Taatshi как решение

Решение

Visual Basic
1
2
3
4
5
6
7
sub Russell
dim W&(1to 10),R#(1to 10),i&
randomize
for i=1to 10
  w(i)=int(rnd*100+1):r(i)=w(i)/i
next
end sub
1
Catstail
Модератор
25041 / 12741 / 2340
Регистрация: 12.02.2012
Сообщений: 20,741
05.12.2014, 11:07 3
Лучший ответ Сообщение было отмечено Taatshi как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
Sub DivDyInd(R() as inyteger, k as integer)
     if (k>Ubound(R,1)) then exit Sub
     R(k)=R(k)/k
     DivByInd(R,k+1)
End Sub
 
'::: Вызов:
 
    DivByInd X,1
1
Catstail
Модератор
25041 / 12741 / 2340
Регистрация: 12.02.2012
Сообщений: 20,741
23.12.2014, 12:31 4
Цитата Сообщение от Catstail Посмотреть сообщение
Sub DivDyInd(R() as inyteger, k as integer)
- конечно, имеется в виду:

Visual Basic
1
as Integer
1
23.12.2014, 12:31
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2014, 12:31

дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить все элементы с четными номерами на первый элемент.
дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить...

Дан одномерный массив, содержащий n целых чисел (n<=25). Отсортировать его по убыванию
дан одномерный массив, содержащий n целых чисел (n&lt;=25). составить программу.полученные значения...

Дан одномерный массив целых чисел, состоящий из 9 элементов, заполнить его с клавиатуры
– найти число положительных и отрицательных элементов, а также произведение всех нечетных...


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

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

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