Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Mikki15

Вычислить сумму и количество положительных и отрицательных эле- ментов массива

23.03.2011, 18:37. Показов 1560. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вычислить сумму и количество положительных и отрицательных эле-
ментов массива D(n), установить каких (положительных или отрица-
тельных) элементов больше.

Вычислить и запомнить в одномерных массивах P(n) и K(n) произве-
дения и количества положительных элементов каждой строки матри-
цы D(n, m) (считать, что в каждой строке матрицы положительные
элементы есть).
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.03.2011, 18:37
Ответы с готовыми решениями:

В одномерном массиве, состоящем из n элементов, вычислить сумму эле- ментов после максимального элемента
Оформить её в виде шаблона функции. Все исходные данные для функции должны передаваться в виде параметров. Использование глобальных...

Найдите количество эле​ментов этого массива, больших среднего арифметического всех ее элементов
Решить: Создать массив с именем А из 10-ти элементов, задав значения его элементов с помощью датчика случайных чисел. Вывести его на...

Вычислить сумму и количество положительных, сумму и количество отрицательных элементов массива
Помогите пожалуйста сдалать следующие 2 задачи : 1)вычислить сумму и количество положительных, сумму и количество отрицательных элементов...

1
 Аватар для -immortal-
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
24.03.2011, 01:23
Лучший ответ Сообщение было отмечено как решение

Решение

Вычислить сумму и количество положительных и отрицательных элементов массива D(n), установить каких (положительных или отрицательных) элементов больше.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
INPUT "kol-vo elementov?"; n
DIM d(n)
PRINT "massiv:"
FOR i = 1 TO n
    d(i) = FIX(100 * RND(1) - 50)
    PRINT d(i);
NEXT
PRINT
FOR i = 1 TO n
    IF d(i) < 0 THEN k1 = k1 + 1: s1 = s1 + d(i): ELSE k2 = k2 + 1: s2 = s2 + d(i)
NEXT i
PRINT
PRINT "summa otricatelnih:"; s1
PRINT "kol-vo otricatelnih:"; k1
PRINT "summa pologitelnih:"; s2
PRINT "kol-vo pologitelnih"; k2
PRINT
IF k1 > k2 THEN PRINT "otricatelnih bolshe"
IF k1 < k2 THEN PRINT "pologitelnih bolshe"
IF k1 = k2 THEN PRINT "odinakovoe kol-vo"
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.03.2011, 01:23
Помогаю со студенческими работами здесь

Вычислить сумму и количество положительных, произведение и количество отрицательных элементов массива
Дан целочисленный массив размера N. Вычислить сумму и кол-во положительных, произведение и кол-во отрицательных элементов, произведение...

Вычислить сумму и количество положительных и отрицательных элементов массива
Обработать на компе одномерный массив D(N): вычислить сумму и количество положительных и отрицательных элементов массива, установить...

Вычислить сумму и количество положительных и отрицательных элементов массива
Задание: Вычислить сумму и количество положительных и отрицательных элементов массива D(n), установить каких (положительных или...

Вычислить сумму и количество отрицательных, положительных и нулевых элементов массива
Нужно передать одномерный массив через функцию Условие задачи: Вычислить сумму и количество отрицательных, положительных и нулевых...

Массивы: вычислить сумму положительных и количество отрицательных элементов массива
Здравствуйте. Столкнулся с проблемой, нужно вычислить сумму положительных и количество отрицательных элементов массива v , предварительно...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru