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

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

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

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

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

Сформировать одномерный массив, каждый элемент которого равен минимальному элементу соответствующей строки заданного двумерного массива
Напишите пользовательскую функцию в среде Microsoft Excel, формирующую одномерный массив, каждый...

Определить минимальный элемент и его номер из одномерного массива целых чисел
Написал начало, но не знаю как записать введенные числа в массив, и найти минимальное число в этом...

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

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

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
Модератор
24154 / 12143 / 2178
Регистрация: 12.02.2012
Сообщений: 19,721
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
Модератор
24154 / 12143 / 2178
Регистрация: 12.02.2012
Сообщений: 19,721
23.12.2014, 12:31 4
Цитата Сообщение от Catstail Посмотреть сообщение
Sub DivDyInd(R() as inyteger, k as integer)
- конечно, имеется в виду:

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

Умножить каждый отрицательный элемент в массиве на индекс второго с конца массива положительного элемента
Умножить каждый отрицательный элемент в массиве на индекс второго с конца массива положительного...

Организовать одномерный массив из случайных положительных и отрицательных чисел
Буду очень признателен. Спасибо. Запрещено выкладывать задания в виде изображений текста. Одно...

В одномерный массив A размерности N при датчика случайных чисел вводятся действительные числа
В одномерный массив A размерности N при помощи датчика случайных чисел вводятся действительные...


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

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

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