Определить наиболее часто встречающуюся оценку, если таких несколько, напечатать их все - VB
Формулировка задачи:
помогите пожалуйста решить .
1.ввести и напечатать матрицу А(М,М) натуральных чисел. Среди элементов главной диагонали и выше нее; найти сумму тех, которые превосходят по величине любой из элементов, расположенных ниже главной диагонали или сообщить что таких нет
2. Тестировали N-учеников с помощью К-тестов. За каждый тест выставлялась оценка от 0 до 10 баллов. Определить наиболее часто встречающуюся оценку, если таких несколько, напечатать их все.
буду благодарна
Решение задачи: «Определить наиболее часто встречающуюся оценку, если таких несколько, напечатать их все»
textual
Листинг программы
Private Sub Command1_Click() Dim a() As Single Dim M As Single Dim i, j M = InputBox("M") ReDim a(1 To M, 1 To M) As Single mtx = "" For i = 1 To M For j = 1 To M a(i, j) = Int((100) * Rnd - 50) mtx = mtx & a(i, j) & Space(3) Next j mtx = mtx & Chr(13) Next i MsgBox mtx Dim max max = a(2, 1) For i = 2 To M For j = 1 To i - 1 If a(i, j) > max Then max = a(i, j) Next j Next i MsgBox "Max : " & max Dim sum As Single sum = 0 For i = 1 To M For j = i To M If a(i, j) > max Then sum = sum + a(i, j) Next j Next i If sum = 0 Then MsgBox ("Net!") Else MsgBox sum End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д