Найти количество элементов массива, больших среднего арифметического всех его элементов — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
SredArif=0
Count=0
n1 = LBOUND(a)
n2 = UBOUND(a)
FOR i=n1 TO n2
  SredArif=SredArif+a(i)
NEXT i
SredArif = SredArif / (n2-n1+1)
  
FOR i=n1 TO n2
  IF a(i)>SredArif THEN Count=Count+1
NEXT i
PRINT Count

Похожие записи/страницы:

Leave a Comment