Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Misanthrope
2 / 2 / 2
Регистрация: 04.06.2010
Сообщений: 57
#1

Найти сумму элементов массива, больших квадрата первого элемента - QBasic

04.04.2011, 19:07. Просмотров 1074. Ответов 1
Метки нет (Все метки)

Найти сумму элементов массива, больших квадрата первого элемента этого массива. Если таких элементов нет, выдать сообщение о неудачности поиска.
http://www.cyberforum.ru/qbasic/thread228386.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2011, 19:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти сумму элементов массива, больших квадрата первого элемента (QBasic):

Найти сумму минимального и первого элемента массива
Нужна программа на нахождение суммы минимального и первого элемента массива в...

Найти сумму элементов массива, больших 25
1.Дан массив из 10 элементов ,Найти сумму элементов массива больше 25 2.Дана...

Найти сумму и количество элементов массива, больших 5
1) Дан массив X из 10 элементов 3,5,-4,-8, 10, 6,-2, 12, 3, 5. Найти сумму и...

Найти сумму элементов массива больших 150
пмгте плиз завтро зачет ((( 1,Дан массив из 14 чисел Найти сумму элементов...

Найти количество элементов массива до первого элемента равного 111
Доброго времени суток!прошу помочь решить лабораторные по информатике!значит...

1
-immortal-
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
04.04.2011, 21:20 #2
Лучший ответ Сообщение было отмечено Misanthrope как решение

Решение

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
RANDOMIZE TIMER
INPUT "kol-vo elementov massiva-"; n
DIM a(n)
PRINT "massiv:"
FOR i = 1 TO n
    a(i) = FIX(100 * RND(1) - 30)
    PRINT a(i);
NEXT
PRINT
k = a(1) ^ 2
FOR i = 2 TO n
    IF a(i) > k THEN s = s + a(i) ELSE p = p + 1
NEXT
PRINT "summa:"; s
IF p = (n - 1) THEN PRINT "net takih elementov!" ELSE PRINT "summa:"; s
Добавлено через 6 минут
ввод вручную:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
INPUT "kol-vo elementov massiva-"; n
DIM a(n)
FOR i = 1 TO n
    INPUT a(i)
NEXT
PRINT "massiv:"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
k = a(1) ^ 2
FOR i = 2 TO n
    IF a(i) > k THEN s = s + a(i) ELSE p = p + 1
NEXT
IF p = (n - 1) THEN PRINT "net takih elementov!" ELSE PRINT "summa:"; s
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2011, 21:20
Привет! Вот еще темы с решениями:

Найти количество элементов массива после первого элемента, равного 15
№1 Дан массив из 250 чисел. Найти количество элементов массива,начиная с...

Найти сумму всех элементов массива вещественных чисел, больших заданного числа
найти сумму всех элементов массива вещественных чисел, больших заданного числа.

Найти сумму элементов массива, начиная с 5 элемента
Дан массив из 10 чисел.Найти сумму элементов массива, начиная с 5 элемента.

Найти сумму элементов массива, стоящих после минимального элемента
Найти сумму элементов массива В(10), которые стоят после минимального элемента...


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

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

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