Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Sishlo
0 / 0 / 0
Регистрация: 08.12.2012
Сообщений: 4
1

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

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

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

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

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

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

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

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

2
Catstail
Модератор
23878 / 11926 / 2104
Регистрация: 12.02.2012
Сообщений: 19,390
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

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

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

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


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

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

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