массив

@Яночка · Регистрация: 14.02.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста решьть задачку

Дан массив чисел. Для неповторяющихся элементов, найти их средннее арифметическое значение.

@Lyohich84 · 01.06.2010, 17:17

PureBasic

CLS
INPUT "Razmernost massiva="; n
DIM a(n)
PRINT "Vvedite elementi massiva"
FOR i = 1 TO n
INPUT a(i)
NEXT i
PRINT "Massiv a"
FOR i = 1 TO n
PRINT a(i);
NEXT i
PRINT
s = 0: k = 0
FOR i = 1 TO n
v = 0
FOR q = 1 TO n
IF i <> q THEN
IF a(i) = a(q) THEN v = 1
END IF
NEXT q
IF v = 0 THEN s = s + a(i): k = k + 1
NEXT i
IF k > 0 THEN
sr = s / k
PRINT "Sredneye arifmetich nepovtor elementov="; sr
ELSE
PRINT "Vse elementi massiva odinakovi"
END IF

@Яночка 0 / 0 / 0 Регистрация: 14.02.2010 Сообщений: 13
		1
	массив 01.06.2010, 16:34. Показов 935. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решьть задачку Дан массив чисел. Для неповторяющихся элементов, найти их средннее арифметическое значение. 0

	01.06.2010, 17:17

Опции темы

массив

Решение