Вывести все элементы массива, произведение которых на размер массива А есть четное число

@Stasy-ch · Регистрация: 02.05.2012

Студворк — интернет-сервис помощи студентам

Вывести все элементы массива, произведение которых на размер массива А есть четное число.

@sco43 · 03.05.2012, 08:55

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
Cls
Dim a&(12), n&
n = InputBox("razmernost")
Randomize
Print " ishodny massiv"
For i = 1 To n
 a(i) = Rnd(1) * 9 \ 1
 Print a(i);
Next i
Print
 
Print "elememty"
For i = 1 To n
 If a(i) * n / 2 = a(i) * n \ 2 Then Print a(i);
Next i
 
End Sub

@Linoge · 03.05.2012, 11:56

Массив стоит объявлять когда узнаем сколько n

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
Cls
Dim n&
n = InputBox("razmernost")
Redim a&(n)
 
Randomize
Print " ishodny massiv"
For i = 1 To n
 a(i) = Rnd(1) * 9 \ 1
 Print a(i);
Next i
Print
 
Print "elememty"
For i = 1 To n
 If a(i) * n mod 2 = 0 Then Print a(i);
Next i
 
End Sub

@Stasy-ch · 04.05.2012, 00:19 **[ТС]**

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

@sco43 · 04.05.2012, 07:28

Сообщение от Stasy-ch

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

Заменяем оператор 10 на:

Visual Basic
1
a(i) = InputBox("a(" & i & ")")

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@Stasy-ch 0 / 0 / 0 Регистрация: 02.05.2012 Сообщений: 10

	Вывести все элементы массива, произведение которых на размер массива А есть четное число 02.05.2012, 23:30. Показов 1357. Ответов 4 Метки нет (Все метки) Вывести все элементы массива, произведение которых на размер массива А есть четное число. 0

@Stasy-ch 0 / 0 / 0 Регистрация: 02.05.2012 Сообщений: 10
	04.05.2012, 00:19 [ТС]
	а если потребуется вводить каждый элемент массива вручную, в этом варианте значения,как я поняла, сами расставляются, как будет выглядить код? 0