дан массив. найти количество частей, значение которых больше среднего
Дан массив. найти количество частей, значение которых больше среднего арифметического
qbasic
2 ответа
Маковод Диана
MS-DOS QBasic
Версия 1.0
Copyright (C) Microsoft Corporation, 1987-1991.
CLS
DIM n AS INTEGER
INPUT "n=", n
DIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
s = 0
FOR i = 1 TO n
a(i) = 101 * RND - 50
PRINT a(i);
s = s + a(i)
NEXT i
PRINT
m = s / n
k = 0
FOR i = 1 TO n
IF a(i) gt; m THEN k = k + 1
NEXT i
PRINT "k="; k
Пример
n=15
-13 17 43 -39 -20 -13 -5 32 12 -10 22 -24 31 6 -19
k= 7
Версия 1.0
Copyright (C) Microsoft Corporation, 1987-1991.
CLS
DIM n AS INTEGER
INPUT "n=", n
DIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
s = 0
FOR i = 1 TO n
a(i) = 101 * RND - 50
PRINT a(i);
s = s + a(i)
NEXT i
m = s / n
k = 0
FOR i = 1 TO n
IF a(i) gt; m THEN k = k + 1
NEXT i
PRINT "k="; k
Пример
n=15
-13 17 43 -39 -20 -13 -5 32 12 -10 22 -24 31 6 -19
k= 7
Валек Карачков
Если не изменяет память- то вот:
INPUT "vvedite n", n
INPUT "vvedite m", m
DIM a(n, m)
FOR i = 1 TO n
FOR j = 1 TO m
INPUT "vvedite element", a(i, j)
NEXT j
NEXT i
PRINT "_____"
PRINT "matrica"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j)
NEXT
NEXT
PRINT "______"
FOR i = 1 TO n
FOR j = 1 TO m
v = v + a(i, j): k = k + 1
NEXT
NEXT
sr = v / k
PRINT "srednee", sr
FOR i = 1 TO n
FOR j = 1 TO m
IF a(i, j) gt; sr THEN c = c + 1
NEXT
NEXT
PRINT "kol-vo", c
INPUT "vvedite n", n
INPUT "vvedite m", m
DIM a(n, m)
FOR i = 1 TO n
FOR j = 1 TO m
INPUT "vvedite element", a(i, j)
NEXT j
NEXT i
PRINT "_____"
PRINT "matrica"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j)
NEXT
NEXT
PRINT "______"
FOR i = 1 TO n
FOR j = 1 TO m
v = v + a(i, j): k = k + 1
NEXT
NEXT
sr = v / k
PRINT "srednee", sr
FOR i = 1 TO n
FOR j = 1 TO m
IF a(i, j) gt; sr THEN c = c + 1
NEXT
NEXT
PRINT "kol-vo", c
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов