Работа с массивом

@programmist2000 · Регистрация: 15.06.2014

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

Всем привет! Помочь сможете?
Дан одномерный массив, который содержит не более 30 вещественных чисел. Найти сумму элементов, которые расположены на местах с номерами, кратными 4.

@bedvit · 06.02.2017, 19:49

Циклом сложить каждый 4й элемент массива.

@programmist2000 · 06.02.2017, 20:00 **[ТС]**

А написать код сможете?
Я пытался, но безуспешно

@bedvit · 06.02.2017, 20:03

Дайте мне массив, а я вам остальной код

@programmist2000 · 06.02.2017, 20:15 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim mass() As Integer
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 0 To 10
If mass(i) = 0 Then
sum = sum + mass(i)
End If
Next i
End Sub

Я пытался сделать хотя бы те числа, которые бы равнялись 0, но...

@Alex77755 · 06.02.2017, 21:44

programmist2000, массив где объявлен? как заполнен? считан?
Массивы. Обьявление массивов. Сортировка массивов

@programmist2000 · 06.02.2017, 22:00 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program a1;
Type mas = Array[1..50] of Real;
Var a:mas;
s:Real;
i,n:Integer;
Begin
Writeln('Ввести размер массива, т.е.количество элементов массива');
Readln(n);
{Ввод самих элементов массива с клавиатуры}
For i:=1 to n do
Begin
Writeln('Ввести a[',i,']');
Readln(a[i]);
End;
{Вывод элементов массива на экран: все элементы в одну строку}
Writeln('Массив a:');
For i:=1 to n do Write(a[i]:6:2);
Writeln;
{Вычисление суммы}
s:=0;
For i:=1 to n do if a[i]<0 Then s:=s+a[i];
{вывод ответа}
Writeln('Сумма=',s:8:2);
End.

Вот на Pascal, я хочу добиться такого же на VBA, только как это сделать?

@bedvit · 07.02.2017, 16:01

Пользователь буде вводить все 30 чисел вручную через форму?

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

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@programmist2000 0 / 0 / 0 Регистрация: 15.06.2014 Сообщений: 52

	Работа с массивом 06.02.2017, 19:09. Показов 652. Ответов 7 Метки нет (Все метки) Всем привет! Помочь сможете? Дан одномерный массив, который содержит не более 30 вещественных чисел. Найти сумму элементов, которые расположены на местах с номерами, кратными 4. 0

@bedvit 1208 / 259 / 22 Регистрация: 20.05.2016 Сообщений: 1,136 Записей в блоге: 21
	06.02.2017, 19:49
	Циклом сложить каждый 4й элемент массива. 0

@programmist2000 0 / 0 / 0 Регистрация: 15.06.2014 Сообщений: 52
	06.02.2017, 20:00 [ТС]
	А написать код сможете? Я пытался, но безуспешно 0

@bedvit 1208 / 259 / 22 Регистрация: 20.05.2016 Сообщений: 1,136 Записей в блоге: 21
	06.02.2017, 20:03
	Дайте мне массив, а я вам остальной код 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.02.2017, 21:44
	programmist2000, массив где объявлен? как заполнен? считан? Массивы. Обьявление массивов. Сортировка массивов 0

@bedvit 1208 / 259 / 22 Регистрация: 20.05.2016 Сообщений: 1,136 Записей в блоге: 21
	07.02.2017, 16:01
	Пользователь буде вводить все 30 чисел вручную через форму? Добавлено через 2 минуты Каждую отдельно судя по коду, не легче строкой через разделитель или сразу массивом из листа? 0