Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Sishlo
0 / 0 / 0
Регистрация: 08.12.2012
Сообщений: 4
#1

Определить сумму элементов массива N, которые кратны трём - VB

13.12.2012, 18:29. Просмотров 495. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста
определить сумму элементов массива N, которые кратны трём, (ni/3)*3=3
Заранее СПАСИБо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2012, 18:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить сумму элементов массива N, которые кратны трём (VB):

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

Найти сумму тех элементов, которые кратны данному значению K. - Visual Basic
Помогите решить на языке Visual Basic!!! Плиз!!!! Очень нужно!!!В массив A(n) занесены натуральные числа. Найти сумму тех элементов,...

Найти сумму тех элементов главной диагонали, которые кратны 5 - Visual Basic
Заполнить таблицу размером N*N случайными целыми числами из диапазона . Найти сумму тех элементов главной диагонали, которые кратны 5....

Определить количество элементов двумерного массива, значения которых не кратны заданному числу F - Visual Basic
ПОМОГИТЕ ПОЖАААЛУЙСТА!, В этом вообще ничего не понимаю. Подскажите хотя бы с чего начать. Задание: 1. Организовать ввод элементов...

Как определить сумму элементов матрицы в тех столбцах, которые не содержат отрицательных элементов - Visual Basic
Дана целочисленная квадратная матрица. Как определить сумму элементов в тех столбцах, которые не содержат отрицательных элементов???...

Получить сумму тех чисел последовательности, которые: кратны 5; нечетны и отрицательны - Visual Basic
Помогите, пожалуйста, решить задачу. Даны целые числа m (m>0), a1, a2,....,an. Получить сумму тех чисел данной последовательности,...

2
Catstail
Модератор
23498 / 11606 / 1893
Регистрация: 12.02.2012
Сообщений: 18,945
14.12.2012, 11:44 #2
Цитата Сообщение от Sishlo Посмотреть сообщение
(ni/3)*3=3
- спасибо за подсказку...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function SumK3(A() As Integer, n As Integer) As Integer
     If (n = UBound(A, 1)) Then
        SumK3 = IIf((A(n) Mod 3) = 0, A(n), 0)
     Else
        SumK3 = IIf((A(n) Mod 3) = 0, A(n), 0) + SumK3(A, n + 1)
     End If
End Function
Sub Main()
Dim A(1 To 5) As Integer
     A(1) = 3
     A(2) = 5
     A(3) = 18
     A(4) = 20
     A(5) = 30
     Debug.Print SumK3(A(), 1)
End Sub
Печатает 51. Верно.
1
Sishlo
0 / 0 / 0
Регистрация: 08.12.2012
Сообщений: 4
14.12.2012, 20:43  [ТС] #3
Спасибо большое!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2012, 20:43
Привет! Вот еще темы с ответами:

Вывести все числа от 1 до 1000, которые: - являются квадратами четных чисел. - кратны 3 и не кратны 5 - Visual Basic
Вывести все числа от 1 до 1000, которые: - являются квадратами четных чисел. - кратны 3 и не кратны 5

Из положительных элементов данного массива составить новый массив и определить сумму его элементов - Basic
помогите решать задачу в GW Basic !!!!! из положительных элементов данного массива составить новый массив и определить сумму его...

Определить сумму элементов в тех строках матрицы, которые содержат хотя бы один отрицательный элемент - Visual Basic
Дана целочисленная прямоугольная матрица. Определить сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент. ...

Вычислить сумму индексов положительных элементов массива С(9) которые формируются по правилу: C(i)=Sin(C(i-1) + 2) где С(1)=13 - Visual Basic
Составить блок-схему. Буду признательно.


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

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

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