Вычислить сумму положительных элементов массива - VB
Формулировка задачи:
ребята помогите плиз!!! пол семестра проболела, а сессия с понедельника начинается(((
1. Вычислить сумму позитивных элементов массива с(м.м) расположенных под второстепенной диагональю. Записать индексы этих элементов в массив К.
2. выполнить этап визуального проектирования - создать форму и разместить на ней элементы управления.
Решение задачи: «Вычислить сумму положительных элементов массива»
textual
Листинг программы
- Sub Task1(A() as double,K() as integer, S as double)
- p%=0
- S=0
- n%=Ubound(A,1)
- For i%=1 to n%
- For j%=1 to n%-i%
- If A(i%,j%) > 0 then
- S=S+A(i%,j%)
- p%=p%+1
- K(p%)=i%
- p%=p%+1
- K(p%)=j%
- End if
- Next j%
- Next i%
- End sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
