дан массив B(n,n). найти сумму элементов больших 128
10-11 класс
|
На Visual Basic
Dim B() As Integer, n As Integer, i
As Integer, k As Integer, S As Integer
n = Text1.Text
ReDim B(n, n)
S = 0
For i = 1 To n
For k = 1 To n
If B(i, k) > 128 Then S = S + B(i, k)
Next k
Next i
Text2.Text = S
End Sub
Другие вопросы из категории
случае. Помогите пожалуйста!!!
1)
MXXV + XXXII =
—
2)
LI + LII =
—
3)
XLVIII + CCLXVIII =
—
4)
MD – CC =
—
5)
CMXCIX – CIX =
—
Есть полоска из белых клеток. Двое ходят по
очереди. За ход разрешается покрасить в чёрный цвет одну белую клетку. Кто не может
сделать ход, проигрывает.
Читайте также
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!
Вывести на экран массив в виде таблицы и сумму элементов массива.
Дан массив O ( K ). Заменить все положительные числа квадратом числа,а отрицательные модулем.
Задача вторая.
Дан массив R ( 6 ) .Найти сумму и произведение всех элементов массивов.
Через Qbasic
ОТ CLS ДО ЕND
А)сумму элементов массива
Б)количество отрицательных элеметов
В)вывести номера элементов массива кратных 3
1)Дан массив Р(15).Найти сумму всех отрицательных элементов с четными индексами.Полученный результат вывести на экран.
2)Ввести с пульта оператора массив МАС1 семь целых чисел. Переписать из МАС1 в МАС2 элементы значения которых положительные,в МАС3 элементы значения которых отрицательные. На пульт оператора вывести значения МАС1,МАС2,МАС3