Вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами

@DragonZero · Регистрация: 19.12.2010

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

помогите написать программу:
В одномерном массиве, состоящем из 20 вещественных элементов (значения элементов массива задать случайными числами из интервала [-3, 9]), вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами. Сформировать из этих элементов новый массиву
у меня какая-то беда с генерацией массива. Заранее спасибо

@19vitek · 19.12.2010, 19:57

на каком языке писать?

@DragonZero · 19.12.2010, 19:58 **[ТС]**

visual basic

@19vitek · 19.12.2010, 20:00

vba подойдет?

@DragonZero · 19.12.2010, 20:03 **[ТС]**

давай)

@19vitek · 19.12.2010, 20:14

как скоро надо?

@DragonZero · 19.12.2010, 20:15 **[ТС]**

ну до завтра неплохо бы

@19vitek · 19.12.2010, 20:17

попробую на интерес. не понравится выбросишь.

@DragonZero · 19.12.2010, 20:18 **[ТС]**

ок, спасибо)

@19vitek · 19.12.2010, 20:19

через сутки тебя найду.

@DragonZero · 19.12.2010, 21:27 **[ТС]**

сделал программу вывода массива созданного генератором в listbox, но он выводит элементы по одному, а не весь массив целиком. в чем проблема?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit On
Imports System.Math
Public Class Form1
    Dim x() As Single
    'Процедура вывода массива  
    Public Sub PrintL(ByRef x() As Single, ByRef LB As ListBox)
        Dim i As Integer
        Dim y As String = " "
        For i = 0 To UBound(x)
            y = y + Format(x(i), "0.00") + Space(4)
        Next i
        LB.Items.Add(y)
    End Sub
    'Процедура ввода массива (генератор случайных чисел)
    Sub vvod(ByRef x() As Single)
        Dim i As Integer
        For i = 0 To UBound(x)
            x(i) = Int((12 * Rnd() + (-3)))
        Next i
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim n As Integer
        ListBox1.Items.Clear() 'очищаем listbox1
        ListBox2.Items.Clear() 'очищаем lixtbox2
        ReDim x(n)
        vvod(x) 'ввод массива
        PrintL(x, ListBox1) 'выводисходного массива
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub
End Class

@19vitek · 19.12.2010, 22:34

готово на vba, если актуально давай почту скину. делал на excel vba 2007.

@DragonZero · 20.12.2010, 02:13 **[ТС]**

спасибо, уже не нужно)

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

@DragonZero 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 7

	Вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами 19.12.2010, 19:46. Показов 1706. Ответов 12 Метки нет (Все метки) помогите написать программу: В одномерном массиве, состоящем из 20 вещественных элементов (значения элементов массива задать случайными числами из интервала [-3, 9]), вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами. Сформировать из этих элементов новый массиву у меня какая-то беда с генерацией массива. Заранее спасибо 0

@19vitek 731 / 407 / 95 Регистрация: 19.12.2010 Сообщений: 756
	19.12.2010, 19:57
	на каком языке писать? 0

@DragonZero 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 7
	19.12.2010, 19:58 [ТС]
	visual basic 0

@19vitek 731 / 407 / 95 Регистрация: 19.12.2010 Сообщений: 756
	19.12.2010, 20:00
	vba подойдет? 0

@DragonZero 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 7
	19.12.2010, 20:03 [ТС]
	давай) 0

@19vitek 731 / 407 / 95 Регистрация: 19.12.2010 Сообщений: 756
	19.12.2010, 20:14
	как скоро надо? 0

@DragonZero 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 7
	19.12.2010, 20:15 [ТС]
	ну до завтра неплохо бы 0

@19vitek 731 / 407 / 95 Регистрация: 19.12.2010 Сообщений: 756
	19.12.2010, 20:17
	попробую на интерес. не понравится выбросишь. 1

@DragonZero 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 7
	19.12.2010, 20:18 [ТС]
	ок, спасибо) 0

@19vitek 731 / 407 / 95 Регистрация: 19.12.2010 Сообщений: 756
	19.12.2010, 20:19
	через сутки тебя найду. 0

Опции темы

@19vitek 731 / 407 / 95 Регистрация: 19.12.2010 Сообщений: 756
	19.12.2010, 22:34
	готово на vba, если актуально давай почту скину. делал на excel vba 2007. 1

@DragonZero 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 7
	20.12.2010, 02:13 [ТС]
	спасибо, уже не нужно) 0