Сформировать двумерный массив Z(10,3) из случайных чисел, принадлежащих отрезку [-2;15] - VB
Формулировка задачи:
Сформировать двумерный массив Z(10,3) из случайных чисел, принадлежащих отрезку[-2;15].Получить и вывести одномерный массив P, где Pi – сумма элементов, расположенных за первым отрицательным элементом в i-й строке; если все элементы строки неотрицательны, то принять Pi=100. ребят пожайлуста! отблагодарю
Решение задачи: «Сформировать двумерный массив Z(10,3) из случайных чисел, принадлежащих отрезку [-2;15]»
textual
Листинг программы
Option Explicit Dim Z(), P(), n, m, i, j, kPol Private Sub Command1_Click() Randomize 'Иницилизация генератора случайных чисел Cls 'Очищаем форму n = 10 ' InputBox("Enter n") m = 3 ' InputBox("Enter m") ReDim Z(n, m), P(n) ' Размеры массива Z - n-строк, m-столбцов For i = 1 To n For j = 1 To m Z(i, j) = Round(17 * Rnd - 2) 'Заполняем массив случайными числами Print Z(i, j); vbTab; Next j Print Next i Print For i = 1 To n kPol = 0 For j = 1 To m If Z(i, j) >= 0 Then P(i) = P(i) + Z(i, j): kPol = kPol + 1 Else P(i) = 0 Next j If kPol = m Then P(i) = 100 Print P(i); Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д