{* Задача160 *}

REM basic

' Заполните одномерный массив из 12 элементов случайным образом и найдите сумму чисел, которые по модулю меньше 6.


Dim Ocenki(12) As Integer
RANDOMIZE TIMER
CLS
  For i = 1 To 12
    Ocenki(i) = RND * 6
    PRINT Ocenki(i);
  Next: PRINT
   For i = 1 To 12
    Sredn = Sredn + Ocenki(i)
  Next
  Sredn = Sredn / 12
    For i = 1 To 12
    If Ocenki(i) > Sredn Then Vishe = Vishe + 1
    If Ocenki(i) < Sredn Then Nizhe = Nizhe + 1
  Next
PRINT "Srednyj ball:"; Sredn
PRINT "Ocenok nizhe sredn balla:"; Nizhe
PRINT "Ocenok vishe sredn balla:"; Vishe
End