Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 20.05.2014
Сообщений: 19
1

Найти среднее всех элементов, определить min элемент и построить его индекс, построить новый массив

23.05.2014, 12:44. Просмотров 920. Ответов 1
Метки нет (Все метки)

Помогите к завтрашнему дню нужно сделать
в массиве из n элементов найти среднее всех элементов, определить min элемент и построить его индекс, построить новый массив из положительных элементов исходного.
Заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2014, 12:44
Ответы с готовыми решениями:

В массиве А состоящем из N элементов, найти элемент, для которого [A(I) – MAX] = MIN и определить его индекс
Помогите пожалуйста решить) В массиве А состоящем из N элементов, найти элемент, для которого =...

В массиве из n элементов определить: сумму положительных элементов, найти max элемент и его индексы, построить
В массиве из n элементов определить: сумму положительных элементов, найти max элемент и его...

Создать новый массив, занеся в каждый элемент среднее арифметическое всех предыдущих элементов
В общем у меня есть задание: Дан одномерный массив вещественных чисел А. .Отсортировать массив В...

Получить новый массив путем деления всех элементов массива на его наименьший элемент
Решите плиз задачи 2)19. Дан двумерный массив размерностью n*m, в котором не все элементы равны...

1
Заблокирован
23.05.2014, 13:52 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
DEFINT A-B, I-J, M-N
DEFSNG S
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
DIM a(n)
 
PRINT
FOR i = 1 TO n
   a(i) = 21 * RND - 10.5
   PRINT USING "####"; a(i);
NEXT i
 
PRINT
s = 0
FOR i = 1 TO n
   s = s + a(i)
NEXT i
 
PRINT
s = s / n
PRINT "SREDNEARIFMETICHESKOE ="; s
PRINT
 
min = a(1)
j = 1
FOR i = 2 TO n
   IF a(i) < min THEN
      min = a(i)
      j = i
   END IF
NEXT i
 
PRINT "MINIMALNYI ELEMENT: "; "A("; j; ")="; min
PRINT
 
m = 0
FOR i = 1 TO n
   IF a(i) > 0 THEN m = m + 1
NEXT i
 
IF m = 0 THEN
   PRINT "POLOSHITELNYH ELEMENTOV NET"
   GOTO 100
END IF
 
DIM b(m)
 
PRINT "NOVYI MASSIV";
j = 1
FOR i = 1 TO n
   IF a(i) > 0 THEN
      b(j) = a(i)
      PRINT USING "####"; b(j);
      j = j + 1
   END IF
NEXT i
100
END
Удачи вам!
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2014, 13:52

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дан массив 100 элементов необходимо упорядочить его по убыванию и найти среднее арифметическое max,min
Дан массив 100 элементов необходимо упорядочить его по убыванию и найти среднее арифметическое...

Найти максимальный элемент массива, вывести его индекс. Найти среднее арифметическое элементов массива
Найти максимальный элемент массива, вывести его индекс. Найти среднее арифметическое элементов...

Получить новый массив путем деления всех элементов данного массива на его больший по модулю элемент
Дан действительный массив размерностью n*m, в которой не все элементы равны нулю. Получить новый...

Найти среднее арифметическое всех отрицательных элементов массива, а из оставшихся сформировать новый массив
В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из...


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

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

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