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

Дан массив целых чисел. Определить количество элементов, кратных a

30.07.2015, 18:53. Просмотров 805. Ответов 1
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub one()
Dim B(20) As Integer
Dim i, a, k As Integer
For i = 20 To 1 Step -1
B(i) = Rnd * 20
ThisWorkbook.Sheets(1).Cells(i + 1, 1) = B(i)
  If B(i) / a = 0 Then
  k = k + 1
  End If
  Next i
ThisWorkbook.Sheets(1).Cells(1, 2) = k
End Sub
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.07.2015, 18:53
Ответы с готовыми решениями:

1. дан двумерный массив чисел. Определить номер строки, состоящей только из элементов, кратных числу А.
1. дан двумерный массив чисел. Определить номер строки, состоящей только из элементов, кратных...

В одномерном массиве из 15 целых чисел определить порядковые номера элементов, кратных трем
Помогите пожалуйста с задачкой. Нужно в одномерном массиве из 15 целых чисел определить порядковые...

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

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

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

1
Казанский
14901 / 6305 / 1718
Регистрация: 24.09.2011
Сообщений: 9,977
30.07.2015, 19:00 2
а=0, поэтому деление на 0
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.07.2015, 19:00

Найти сумму всех целых чисел кратных, кратных 5, из отрезка [A,B]
Помоги пожалуйста

Определить сумму элементов матрицы, кратных 3, и количество отрицательных элементов
помогите решить Дана матрица N×M. Определить сумму элементов, кратных 3, и количество отрицательных...

Определить количество и сумму элементов, кратных 3
В массиве А(N, M) определить количество и сумму элементов, кратных 3. Вывести исходный массив и...


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

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

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