сервис вопросов и ответовПомогите пожалуйста!!! "В двумерном массиве MC( 5,5,) найти произведение положительных элементов матрицы" в программе Visual Basic
10-11 класс|
|
2004serega
07 мая 2013 г., 16:19:23 (10 лет назад)
лолололол123
07 мая 2013 г., 18:09:17 (10 лет назад)
Sub z()
Dim mc(5, 5) As Integer
p = 1
m = "Массив:" & Chr(13)
For i = 1 To 5
For j = 1 To 5
mc(i, j) = Int(Rnd * 10) - 5
s = s & mc(i, j) & "; "
If mc(i, j) > 0 Then p = p * mc(i, j)
Next j
m = m & s & Chr(13)
s = ""
Next i
m = m & "Ответ: " & p
MsgBox (m)
End Sub
Sub z()
Dim mc(5, 5) As Integer
p = 1
For i = 1 To 5
For j = 1 To 5
mc(i, j) = Int(Rnd * 10) - 5
Cells(i,j)=mc(i, j)
If mc(i, j) > 0 Then p = p * mc(i, j)
Next j
Next i
Cells(6,1)= "Ответ: "
Cells(6,2)=p
End Sub
BukuHg
07 мая 2013 г., 22:50:14 (10 лет назад)
Уснула на подушечке-то)))
ZIZIZIZIZIZI
07 мая 2013 г., 23:30:34 (10 лет назад)
Сделаю в msgbox
Polya5zaloga
08 мая 2013 г., 2:16:33 (10 лет назад)
а в экселе нельзя?)
Tanya3010197878
08 мая 2013 г., 2:55:18 (10 лет назад)
Проснулась?))
Ответить
Другие вопросы из категории
В локальной сети работает 25 компьютеров, подключенных к маршрутизатору. Сколько свободных адресов осталось в этой локальной сети, если адресация в ней
выглядит так: 192.168.0.0/14
Отгадай объект по его действиям. а) Не лает, не кусает, а в дом не пускает. б) Двенадцать братьев друг за другом по кругу ходят. в) Кто в году четыре
раза переодевается.
1. Заполнить массив случайные числами из промежутка [10;20]
2. Найти максимальный и минимальный элементы в этом массиве
3. Обменять первый максимальный и последний минимальный
Задача.
В саду было 100q-фрукотовых деревьев. ИЗ них было 33 q-яблони, 22 q- груши, 16q-сливы, 17q-вишни. В какой системе счисления вёлся счет??
Читайте также
Паскаль, составьте программу для двумерного массива:
Найти произведение отрицательных элементов указанной строки двумерного массива размером 4*5 целых чисел.
Найти сумму положительных элементов линейного массива целых чисел. Размерность массива - 10. Заполнение массива осуществить с клавиатуры.
Программу надо написать через МАССИВЫ!!!
Помогите пожалуйста, срочно!!!)
Помогите пожалуйста, очень срочно!
Дан массив А , содержащий N элементов .Найти произведение отрицательных элементов массива и их количество. Нарисовать блок-схему. Просчитать значения: N=10 , массив А={-2;0;10;-1;7;3;0}
1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
Ребята, помогите пожалуйста Даны двумерные массивы A[m,n], B[m,n]. Сформировать двумерный массив Cтакой же размерности, в котором каждый элемент
C[i,j] равен среднему арифметическому элементов A[i,j] и B[i,j].
Вы находитесь на странице вопроса "Помогите пожалуйста!!! "В двумерном массиве MC( 5,5,) найти произведение положительных элементов матрицы" в программе Visual Basic", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.