Форум программистов, компьютерный форум CyberForum.ru

Определить количество элементов массива, равных числу m - QBasic

Восстановить пароль Регистрация
 
Petro29
0 / 0 / 0
Регистрация: 30.04.2016
Сообщений: 67
05.01.2017, 09:35     Определить количество элементов массива, равных числу m #1
Дан массив Х, состоящий из 20 це-
лых случайных чисел, каждое из которых лежит в пределах от 3
до 13. С клавиатуры вводится число m, также лежащее в этих пределах. Определить количество элементов массива, равных числу m.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
RANDOMIZE TIMER
INPUT “ Кол. эл-ов массива: “, X
DIM A(X)
FOR i = 1 TO X
A(i) = INT(RND(i) * 13)
   PRINT A(i);
NEXT i
   PRINT
INPUT “ Число m больше 3 но меньше 13: “, m
  FOR I = 1 TO m
  PRINT “  “; A(i);
NEXT i
QBasic/QuickBASIC
1
2
3
4
Кол. эл-ов массива:  20
4   5   5   3   8   12   4   11   0   10   1   10   12   9   5   11   10   2   0   7
Число m больше 3 но меньше 13:  7
4   5   5   3   8   12   4
Вот только числа вводятся не с 3 до 13, а с 0 до 13. Почему?
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2017, 09:35     Определить количество элементов массива, равных числу m
Посмотрите здесь:

Подсчитать количество элементов матрицы, равных нулю и сумму положительных элементов QBasic
Подсчитать количество элементов массива, равных нулю QBasic
Найти количество элементов массива, равных минимальному QBasic
QBasic Найти количество элементов, равных 4, среди вторых элементов массива
QBasic Определить количество членов последовательности, не равных последнему элементу
QBasic Определить количество положительных и количество отрицательных элементов массива
QBasic Определить количество четных элементов массива X(n)
Определить сумму элементов массива X(n), предшествующих первому отрицательному числу QBasic
Определить количество нулевых элементов массива QBasic
В числовой последовательности определить количество элементов, равных максимальному (Блок-схема) QBasic
QBasic В числовой последовательности определить количество элементов равных максимальному
Определить минимальный элемент массива и количество элементов, равных минимальному QBasic

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
675 / 893 / 345
Регистрация: 23.10.2013
Сообщений: 4,076
Записей в блоге: 3
05.01.2017, 10:57     Определить количество элементов массива, равных числу m #2
Petro29
Перепишите вашу строку 6 так
QBasic/QuickBASIC
1
A(i) = INT(RND * 10) + 3
объясняется все очень просто
1. Вам надо наименьшее число 3. Вот вы его и прибавляете
2 Вам надо наибольшее число 13. Вы умножаете на число
10 = (13 - 3)
Yandex
Объявления
05.01.2017, 10:57     Определить количество элементов массива, равных числу m
Ответ Создать тему
Опции темы

Текущее время: 15:30. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru