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

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

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

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

Найти сумму элементов массива до первого элемента, равного 39
Где ошибка в этом задании , есть другое решение ? Дан массив из 13 элементов...

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

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

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

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

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

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

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

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


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

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

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