Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
ЕЛЕНКА22
0 / 0 / 0
Регистрация: 24.05.2011
Сообщений: 1
#1

Найти количество элементов массива, значения которых по модулю больше 3 - QBasic

27.05.2011, 20:49. Просмотров 409. Ответов 2
Метки нет (Все метки)

Дан массив X=(-5.321, -6.74, 2.35, 2.34, -5, 2.28, 1.145). Найти количество его элементов, значения которых по модулю больше 3.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2011, 20:49
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти количество элементов массива, значения которых по модулю больше 3 (QBasic):

Найти минимальное количество элементов массива, которые больше заданного значения - QBasic
var A:array of integer; s,i,k,p:integer; begin p:=1; for i:=1 to 10 do begin A:=1; p:=p*i; A:=p; end;

Подсчитать количество элементов, значения которых больше среднего арифметического всех элементов матрицы - QBasic
В ДВУМЕРНОМ МАССИВЕ A(N.M) ПОДСЧИТАТЬ КОЛИЧЕСТВО ЭЛЕМЕНТОВ,ЗНАЧЕНИЯ КОТОРЫХ БОЛЬШЕ СРЕДНЕГО АРИФМЕТИЧЕСКОГО ВСЕХ ЭЛЕМЕНТОВ МАССИВА A(N.M)

Вычислите сумму элементов массива А(15), значения которых по модулю лежат в заданном диапазоне: от В до С. (В<|A(I)|<C) - QBasic
Вычислите сумму элементов массива А(15), значения которых по модулю лежат в заданном диапазоне: от В до С. (В&lt;|A(I)|&lt;C)

Найти средне значение элементов,значения которых больше 5. - QBasic
блин,люди,немогу задачку решить,помогите,плиз:):)... Дан одномерный массив,состоящий из N чисел.Найти средне значение элементов,значения...

Найти количество строк матрицы, сумма элементов которых больше заданного числа - QBasic
в 2х мерном массиве из 5ти строк и 3-х столбцов найти количество строк, сумма элементов которых больше заданного числа. воспользовался...

Найти количество строк матрицы, сумма элементов которых больше заданного числа - QBasic
В двухмерном числовом массиве из N строк* и М столбцов найти кол-во строк сумма элементов которых больше заданного числа. и это...

2
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27746 / 15654 / 946
Регистрация: 15.09.2009
Сообщений: 67,839
Записей в блоге: 78
27.05.2011, 21:24 #2
 Комментарий модератора 
называйте темы максимально информативно(Правила п.3.3)


Добавлено через 11 минут
 Комментарий модератора 
и прочтите правила форума.
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
16.06.2016, 08:10 #3
проверено

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS
DATA -5.321,-6.74, 2.35, 2.34,-5, 2.28, 1.145
DIM x(1 TO 7)
 
FOR i = 1 TO 7
   READ x(i)
   PRINT x(i);
NEXT i
PRINT : PRINT
 
FOR i = 1 TO 7
   IF ABS(x(i)) > 3 THEN k = k + 1
NEXT i
PRINT "K ="; k
END
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2016, 08:10
Привет! Вот еще темы с ответами:

Найти номера элементов массива, значение которых больше заданного и записать их в массив - QBasic
Прошу помочь с заданием ,суть которого такова : Найти номера элементов массива А(),значение которых больше заданного и записать их в...

Вывести номера столбцов, в которых количество отрицательных элементов больше, чем количество положительных - QBasic
Помогите пожалуйста решить задачу Матрицу D(8, 9) заполнить целыми случайными числами в диапазоне от -100 до 100. Вывести номера...

Заменить нулями те числа, величина которых по модулю больше максимального числа у массива - QBasic
№3 Одномерные массивы 1) Дан массив а(n) Заменить нулями те числа, величина которых по модулю больше максимального числа у этого...

Подсчитать количество элементов массива, больше заданного числа - QBasic
Подсчитать количество элементов больше заданного числа. Если оно больше половины всех элементов, определить индекс и значение...


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

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

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