Заменить все числа, кратные заданной цифре X, нулями - VB
Формулировка задачи:
Буду очень благодарна, если кто-нибудь сможет помочь с 2 задачами)
1. Пусть дан одномерный числовой массив, составленный из целых чисел. Его можно получить либо вводом с клавиатуры командой Inputbox, либо выбором из ячеек рабочего листа, либо с помощью датчика случайных чисел. Количество элементов заранее не известно.
а) Заменить все числа, кратные заданной цифре X, нулями.
б) Разделить все элементы с четными номерами на 2.
2. Пусть на рабочем листе задан некоторый двумерный массив натуральных чисел( или же получить его иным способом). Выделить другим цветом все четные числа матрицы и найти наибольшее среди них.
Решение задачи: «Заменить все числа, кратные заданной цифре X, нулями»
textual
Листинг программы
Option Explicit Private Sub proc1() Dim arr() As Single Dim i As Byte, n As Byte Dim x As Single n = InputBox("N") x = InputBox("X") ReDim arr(1 To n) As Single For i = 1 To n arr(i) = 100 * Rnd - 50 If (arr(i) Mod x) = 0 Then arr(i) = 0 Next i For i = 2 To n Step 2 arr(i) = arr(i) / 2 Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д