Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
2 / 2 / 0
Регистрация: 12.12.2013
Сообщений: 83

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

28.09.2014, 09:36. Показов 2415. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, позволяющий найти и вывести сумму элементов массива, кратных тринадцати
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.09.2014, 09:36
Ответы с готовыми решениями:

Найти сумму всех элементов массива, кратных 5
Помогите написать на C# Windows Form. Найти сумму всех элементов массива, кратных 5

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

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

5
11 / 11 / 5
Регистрация: 22.08.2013
Сообщений: 77
28.09.2014, 11:52
Лучший ответ Сообщение было отмечено Ashmotev как решение

Решение

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Module Module1
    Dim mass() As Integer = {0, 10, 26, 43, 13, 45, 1, 0, 9, 5, 6, 8, 15, 6, 78, 9, 7, 4, 8, 3, 2, 1, 5, 1, 5, 1, 1, 6, 8, 6}
    Dim rezult As Integer = 0
    Sub Main()
        For i As Integer = 0 To mass.Length - 1
            If mass(i) Mod 13 = 0 Then
                rezult = rezult + mass(i)
            End If
        Next
        Console.WriteLine(rezult)
        Console.Read()
    End Sub
 
End Module
как-то так
1
28.09.2014, 12:55

Не по теме:

Цитата Сообщение от Ashmotev Посмотреть сообщение
Опишите на русском языке алгоритм
Что, даже на русском языке не получается описать ?? Задание переписали и ждете на блюдечке готовое решение. Учиться нужно пока возможность есть

0
28.09.2014, 15:22

Не по теме:

emenem97, это студенты в универов бегут, им не нужно учится, им подавай готовые решения

0
4708 / 3661 / 857
Регистрация: 02.02.2013
Сообщений: 3,518
Записей в блоге: 2
28.09.2014, 16:07
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

VB.NET
1
2
3
Dim mass() As Integer = {0, 10, 26, 43, 13, 45, 1, 0, 9, 5, 6, 8, 15, 6, 78, 9, 7, 4, 8, 3, 2, 1, 5, 1, 5, 1, 1, 6, 8, 6}
Dim mass13 = From nn In mass Where nn Mod 13 = 0
Dim sum13 As Integer = mass13.ToArray.Sum
1
28.09.2014, 19:10

Не по теме:

ovva, красота)

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
28.09.2014, 19:10
Помогаю со студенческими работами здесь

Найти сумму значений наибольшего и наименьшего элементов массива, кратных 7.
Написать программу. Задан действительный одномерный массив А(n), где n -заданное натуральное число. Найти сумму значений наибольшего и...

Дан массив целых чисел. Найти сумму элементов массива, кратных А или В
2) В массиве хранятся сведения об оценках 25 учеников по химии. Определить количество неуспеваю¬щих по химии учеников 1)Дан массив целых...

Одномерный массив. Найти произведение элементов массива, кратных 5 и сумму элементов массива, которые приделении на 7 дают остаток 3.
Задан одномерный массив из N элементов. Размерность массива и сам массив вводятся с клавиатуры. Найти произведение элементов массива,...

Найти сумму кратных трём отрицательных элементов массива. Найти минимальный элемент массива и его индекс
Друзья!!! Помогите написать текст программы в Паскале: № 3. Сформировать массив X(40) из случайных целых чисел на интервале . Массив...

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


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru