Определить сколько чисел меньше K, равно K и больше K - VB
Формулировка задачи:
помогите пожалуйста решить задачу по массивам на бэйсике
1)Задана последовательность из N вещественных чисел. Определить сколько чисел меньше K, равно K и больше K.
2) эта задача на картинке..Сформировать квадратную матрицу порядка n по заданному образцу
3)Решить задачу с двумерным массивом
Дана вещественная матрица A размера n*m. Определить k—количество «особых» элементов массива A,считая его элемент особым, если он больше суммы остальных элементов его столбца.
Решение задачи: «Определить сколько чисел меньше K, равно K и больше K»
textual
Листинг программы
Dim n As Integer, m() As Integer n = InputBox("n") ReDim m(n, n) For i = 1 To n For j = 1 To n If i = j Then m(i, j) = n + 1 - i Else m(i, j) = 0 End If Print m(i, j); " "; Next j Print Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д