Найти сумму элементов массива, кратных данному К - VB

Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 5.00/9:

@q7 1 / 1 / 1 Регистрация: 08.02.2010 Сообщений: 38

	Найти сумму элементов массива, кратных данному К 10.12.2010, 19:09. Показов 1987. Ответов 2 Метки нет (Все метки) В массив А[N] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К. 0

Лучшие ответы (1)

Сообщение: #1190119

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

10.12.2010, 19:09

Ответы с готовыми решениями:

Найти сумму тех элементов массива, которые кратны данному К
'В массив A занесены натуральные числа. 'Найти сумму тех элементов, которые кратны данному К. Function summa_k(razmer As Integer) As...

Найти сумму элементов массива, не кратных 2
Помогите пожалуйста. Нужно составить массив С(N) в котором нужно найти сумму элементов не кратных 2. работу почти сделал но что-то не так...

Найти сумму элементов массива, кратных данному K
1) Дан массив натуральных чисел. Найти сумму элементов,кртных данному K. 2)В целочисленной последовательности есть нулевые элементы....

SuPeR XaKer

2857 / 1986 / 788

Регистрация: 23.09.2010

Сообщений: 4,875

10.12.2010, 20:59

PureBasic
1
2
3
4
5
6
for i=1 to n
if a(i) mod k=0 then
sum=sum+a(i)
end if
next i
print sum

1 / 1 / 1

Регистрация: 08.02.2010

Сообщений: 38

11.12.2010, 12:24 [ТС]

Сообщение было отмечено q7 как решение

Решение

Сообщение от SuPeR XaKer

PureBasic
1
2
3
4
5
6
for i=1 to n
if a(i) mod k=0 then
sum=sum+a(i)
end if
next i
print sum

мне надо в VB если можно!

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

11.12.2010, 12:24

Помогаю со студенческими работами здесь

Найти сумму тех элементов массива, которые кратны данному K
1) Дан массив A(N), найти сумму тех элементов которые кратны данному K Маленько начал решать, но не понимаю в чём ошибка, если можно...

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

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

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

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

Наверх