Найти сумму элементов массива, имеющих нечетное значение

@alekseyray · Регистрация: 02.06.2013

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

Помогите пожалуйста!
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму элементов, имеющих нечетное значение.

2. Вывести индексы тех элементов, значения которых больше заданного числа А.

3. Определить, есть ли в данном массиве положительные элементы, кратные заданному числу К.

@proft · 04.06.2013, 21:35

Visual Basic

Private Sub Command1_Click()
Form1.AutoRedraw = True
Dim i, n, sum As Double
Dim A As Double
Dim b() As Double
Dim c As Integer
Dim k As Integer
Cls
sum = 0
c = 0
n = InputBox("Ââåäèòå êîëè÷åñòâî  ýëåìåíòîâ", "Ýëåìåíòû")
A = InputBox("Ââåäèòå ÷èñëî ñ êîòîðûì íóæíî ñðàâíèâàòü", "×èñëî")
k = InputBox("Ââåäèòå êðàòíîñòü ÷èñëà ", "×èñëî")
'1 ÇÀÄÀ×À
ReDim b(1 To n)
For i = 1 To n
      b(i) = Int(Rnd * (-20) + 10)
Print b(i);
If i Mod 5 = 0 Then Print
      If b(i) Mod 2 = 0 Then sum = b(i) + sum
Next i
Print
Print "Ñóììà"; sum
Print vbLf
'2 ÇÀÄÀ×À
For i = 1 To n
      If b(i) > A Then
            Print i;
            c = c + 1
      End If
Next i
'3 ÇÀÄÀ×À
Print vbLf
Print " ×èñëà êðàòíûå " & k & ""
For i = 1 To n
      If b(i) Mod k = 0 Then Print b(i);
Print ;
Next i

@alekseyray · 04.06.2013, 21:48 **[ТС]**

Спасибо большое!!!

@alekseyray 0 / 0 / 0 Регистрация: 02.06.2013 Сообщений: 8
		1
	Найти сумму элементов массива, имеющих нечетное значение 04.06.2013, 21:03. Показов 2202. Ответов 2 Метки нет (Все метки) Помогите пожалуйста! 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму элементов, имеющих нечетное значение. 2. Вывести индексы тех элементов, значения которых больше заданного числа А. 3. Определить, есть ли в данном массиве положительные элементы, кратные заданному числу К. 0

@alekseyray 0 / 0 / 0 Регистрация: 02.06.2013 Сообщений: 8
	04.06.2013, 21:48 [ТС]	3
	Спасибо большое!!! 0

Опции темы

Найти сумму элементов массива, имеющих нечетное значение

Решение