В одномерном массиве R из 15 элементов найти среднее арифметическое для элементов расположенных между максимальным и минимальным

@santa56 · Регистрация: 06.01.2014

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

В одномерном массиве R из 15 элементов найти среднее арифметическое для элементов
расположенных между максимальным и минимальным. Если они следуют один за
другим, считать его равным нулю

Помогите срочно умоляю пишу экзамен!!!!

@phofthechrist · 07.02.2014, 23:23

PureBasic

Cls:randomize timer
Dim a(15)
For i = 1 to 15
a(i) = int(rnd(1)*100):?a(i);
next
?:?
max = 1:min = 1:mx = 1:mn = 1
For i = 1 to n
If a(i) > max then mx = i
If a(i) < min then mn = i
next
?mx,mn;
For i = mn to mx step sgn(mx-mn)
x = x + a(i)
next
?"Srednee arifm ="; s = x/mn - mx+1
end

Добавлено через 16 минут

PureBasic

CLS : RANDOMIZE TIMER: k = 0
DIM a(15)
FOR i = 1 TO 15
a(i) = INT(RND(1) * 100): PRINT a(i);
NEXT
PRINT : PRINT
max = a(1): min = a(1): mx = 1: mn = 1
FOR i = 1 TO 15
IF a(i) > max THEN max = a(i): mx = i
IF a(i) < min THEN min = a(i): mn = i
NEXT
PRINT max; ":"; "  nom -"; mx, min; ":"; "  nom -"; mn; : PRINT : PRINT
IF mn > mx THEN SWAP mn, mx
FOR i = mn TO mx
x = x + a(i): k = k + 1
NEXT
s = x / k
PRINT "Srednee arifmeticheskoe ="; s
END

Добавлено через 3 минуты

Сообщение от santa56

В одномерном массиве R из 15 элементов найти среднее арифметическое для элементов
расположенных между максимальным и минимальным. Если они следуют один за
другим, считать его равным нулю

Помогите срочно умоляю пишу экзамен!!!!

второй листинг рабочий

@santa56 0 / 0 / 0 Регистрация: 06.01.2014 Сообщений: 7
		1
	В одномерном массиве R из 15 элементов найти среднее арифметическое для элементов расположенных между максимальным и минимальным 11.01.2014, 15:38. Показов 1265. Ответов 1 Метки нет (Все метки) В одномерном массиве R из 15 элементов найти среднее арифметическое для элементов расположенных между максимальным и минимальным. Если они следуют один за другим, считать его равным нулю Помогите срочно умоляю пишу экзамен!!!! 0

	07.02.2014, 23:23

Опции темы

В одномерном массиве R из 15 элементов найти среднее арифметическое для элементов расположенных между максимальным и минимальным

Решение