Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Бугагага
0 / 0 / 0
Регистрация: 26.12.2016
Сообщений: 12
1

Вычислить среднее арифметическое отрицательных элементов массива.

08.02.2017, 18:31. Просмотров 565. Ответов 3
Метки нет (Все метки)

Даны целые N1<=6, N2<=8, N3<=10 и массивы вещественных чисел A(N1), B(N2), C(N3). Вычислить среднее арифметическое отрицательных элементов массива.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.02.2017, 18:31
Ответы с готовыми решениями:

Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2
Даны массив Xi, i = 1, ..., 15. Найти среднее арифметическое положительных и...

Определить среднее арифметическое значение элементов массива
Задача 1. Определить среднее арифметическое значение элементов массива X(n)....

Подсчитать количество отрицательных элементов массива
Для админов, я вообще не умею программировать, нужен грамотный совет, или...

Найти сумму положительных элементов и сумму отрицательных элементов массива
Здравствуйте. буду очень признателен, если вы поможете мне с решением задач....

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

3
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
09.02.2017, 10:23 2
примечание
Если программа в качестве среднего арифметического
отрицательных элементов массива выдаст число 0, то
это означает, что в массиве НЕТ отрицательных чисел.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
DECLARE FUNCTION sar! (x!(), n!)
DECLARE SUB ini (x!(), n!)
CLS
RANDOMIZE TIMER
 
n1 = 6
n2 = 8
n3 = 10
DIM A(n1)
DIM B(n2)
DIM C(n3)
 
CALL ini(A(), n1)
CALL ini(B(), n2)
CALL ini(C(), n3)
PRINT sar(A(), n1)
PRINT sar(B(), n2)
PRINT sar(C(), n3)
END
 
SUB ini (x(), n)
   FOR i = 1 TO n
      x(i) = 40 * RND - 20
      PRINT USING " ###.###"; x(i);
   NEXT
   PRINT : PRINT
END SUB
 
FUNCTION sar (x(), n)
   FOR i = 1 TO n
      IF x(i) < 0 THEN
         s = s + x(i)
         k = k + 1
      END IF
   NEXT
   IF k THEN sar = s / k
END FUNCTION
0
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27966 / 15692 / 960
Регистрация: 15.09.2009
Сообщений: 67,824
Записей в блоге: 78
21.02.2017, 20:52 3
называйте темы так, чтобы было понятно, о чем в них идет речь
и прекращайте дублировать темы.
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
22.02.2017, 09:47 4
Вариант 2

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
DECLARE SUB ini (x!(), n!)
DECLARE SUB sar (x!(), n!, SA!, t$)
 
CLS
RANDOMIZE TIMER
DIM t AS STRING
 
n1 = 1 + INT(6 * RND)
n2 = 1 + INT(8 * RND)
n3 = 1 + INT(10 * RND)
 
DIM A(n1)
DIM B(n2)
DIM C(n3)
 
CALL ini(A(), n1)
CALL ini(B(), n2)
CALL ini(C(), n3)
 
SA = 0
CALL sar(A(), n1, SA, t)
IF SA <> 0 THEN
   PRINT USING "SRED. ARIFM = ###.##"; SA
ELSE
   PRINT t
END IF
 
SA = 0
CALL sar(B(), n2, SA, t)
IF SA <> 0 THEN
   PRINT USING "SRED. ARIFM = ###.##"; SA
ELSE
   PRINT t
END IF
 
SA = 0
CALL sar(C(), n3, SA, t)
IF SA <> 0 THEN
   PRINT USING "SRED. ARIFM = ###.##"; SA
ELSE
   PRINT t
END IF
END
 
SUB ini (x(), n)
   FOR i = 1 TO n
      x(i) = 40 * RND - 20
      PRINT USING "###.## "; x(i);
   NEXT
   PRINT : PRINT
END SUB
 
SUB sar (x(), n, SA, t$)
   FOR i = 1 TO n
      IF x(i) < 0 THEN
         S = S + x(i)
         k = k + 1
      END IF
   NEXT
 
   IF k <> 0 THEN
      SA = S / k
   ELSE
      t$ = "OTRICATELNYH CHISEL NET"
   END IF
END SUB
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2017, 09:47

Вычислить среднее арифметическое отрицательных элементов массива
1. Вычислить среднее арифметическое отрицательных элементов массива. 2....

Найти среднее арифметическое отрицательных элементов массива
народ подскажите как Вычислить среднее арифметическое отрицательных элементов...

Найти среднее арифметическое положительных элементов и произведение отрицательных элементов массива
Добрый день,просьба помочь в решении следующей задачи,заранее спасибо. В...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru