Консультация № 160186
11.02.2009, 12:03
0.00 руб.
0 1 1
Здравствуйте, уважаемые Эксперты! Помогите, пожалуйста, выполнить задание в Quick BASIC:
Ввести одномерный массив A={ 2.35, -4.15, 0, -3.1, 7.8, 6.3, -3.05, 1.5}. Найти и вывести среднее геометрическое положительных элементов массива А и индекс элемента, наиболее близкого к среднему геометрическому.

Обсуждение

Неизвестный
12.02.2009, 16:49
общий
это ответ
Здравствуйте, Ushastik1985!
Забирайте код. Если что непонятно, пишите!

Приложение:
CLS
n = 8
DIM a(n)
FOR i = 1 TO n
PRINT "VVedite "; i; "(iz"; n; ") element massiva"
INPUT a(i)
NEXT i

qty = 0
pr = 1

FOR i = 1 TO n
IF a(i) > 0 THEN
qty = qty + 1
pr = pr * a(i)
END IF
NEXT i

IF qty = 0 THEN
PRINT "Pologitelnyh chisel net"
ELSE
sred = pr ^ (1 / qty)
ind = 1
WHILE (a(ind) <= 0 AND ind <= n)
ind = ind + 1
WEND

otkl = ABS(a(ind) - sred)
FOR i = ind TO n
IF (a(i) > 0) AND (ABS(a(i) - sred) < otkl) THEN
ind = i
otkl = ABS(a(ind) - sred)
END IF
NEXT i

PRINT "proizvedenie pologitelnyh chisel="; pr
PRINT "kol-vo="; qty
PRINT "srednee_geometricheskoe = "; sred; ""
PRINT "index bligaisego k srednemu = "; ind
END IF
Форма ответа