Задача на массив

@Owens · Регистрация: 25.05.2015

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

Доброго времени суток, нужно решить данную задачку:

Вычислить величину Z как сумму положительных элементов массива X(m, n), расположенных в четных строках.

Заранее спасибо.

@mihey1993 · 17.06.2015, 15:24

Visual Basic

Sub proc()
Dim a() As Integer, Z As Integer, m As Integer, n As Integer
 
m = InputBox("Rows")
n = InputBox("Columns")
 
ReDim a(1 To m, 1 To n)
 
Z = 0
 
For i = 1 To m
    For j = 1 To n
        a(i, j) = Int(21 * Rnd) - 10
    Next j
Next i
 
For i = 2 To m Step 2
    For j = 1 To n
        Z = Z + 0.5 * (1 + Sgn(a(i, j))) * a(i, j)
    Next j
Next i
 
Debug.Print Z
End Sub

@Owens 0 / 0 / 0 Регистрация: 25.05.2015 Сообщений: 10
		1
	Задача на массив 16.06.2015, 21:01. Показов 397. Ответов 1 Метки нет (Все метки) Доброго времени суток, нужно решить данную задачку: Вычислить величину Z как сумму положительных элементов массива X(m, n), расположенных в четных строках. Заранее спасибо. 0

	17.06.2015, 15:24