Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
Dimetrius08
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 12
1

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

06.02.2012, 16:32. Просмотров 1903. Ответов 1
Метки нет (Все метки)

Здравствуйте. буду очень признателен, если вы поможете мне с решением задач.
1) Дан массив Аi, i=1,2,…,15. Найти сумму положительных элементов и сумму отрицательных элементов массива S1 и S2 . Определить, что больше S1 или S2 . Входные данные задать самостоятельно.

2) Дан массив Xi, i=1, 2, …,15. Найти произведения положительных и отрицательных элементов массива Р1 и Р2. Определить, что больше Р1 или Р2. Входные данные задать самостоятельно.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2012, 16:32
Ответы с готовыми решениями:

Из положительных элементов данного массива составить новый массив и определить сумму его элементов
помогите решать задачу в GW Basic !!!!! из положительных элементов данного массива составить новый...

Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2
Даны массив Xi, i = 1, ..., 15. Найти среднее арифметическое положительных и отрицательных...

Найти сумму не положительных, произведение неотрицательных элементов, поменять местами первый и последний элементы
Здравствуйте, нужно перевести с Паскаля на Бейсик. Сама задача: В одномерном массиве х(10) найти...

Найти сумму положительных и произведение отрицательных чисел
даны 10 чисел , найти сумму положительных и произв-ие отрицательных. помогите решить через...

найти сумму элементов диагоналей массива
:)дан двухмерный массив.найти сумму элементов диагоналей массива.желательно блок схема,алгоритм и...

1
SoftIce
es geht mir gut
11133 / 4546 / 1147
Регистрация: 27.07.2011
Сообщений: 11,166
Завершенные тесты: 1
10.02.2012, 21:11 2
Если ещё актуально
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Dim S1 As Integer, S2 As Integer
Dim P1 As Double, P2 As Double
Dim kolS1 As Integer, kolS2 As Integer
Dim i As Integer, n As Integer
Dim A() As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
S1 = 0: S2 = 0: kolS1 = 0: kolS2 = 0: P1 = 1: P2 = 1
n = InputBox("Введите размер массива n", , 15)
ReDim A(1 To n) ' Размеры массива А -  n-строк, m-столбцов
  For i = 1 To n
       A(i) = Int(Rnd * 101 - 50) 'Заполняем массив случайными числами
       Print A(i); vbTab;
    If A(i) < 0 Then
       S1 = S1 + A(i)
       P1 = P1 * A(i)
       kolS1 = kolS1 + 1
    Else
       S2 = S2 + A(i)
       P2 = P2 * A(i)
       kolS2 = kolS2 + 1
    End If
  Next i
       Print
       Print "Количество отрицательных элементов массива  =  "; kolS1
       Print "Количество положительных элементов массива  = "; kolS2
       Print "Сумма отрицательных элементов массива  =  "; S1
       Print "Сумма положительных элементов массива  = "; S2
       Print "Произведение отрицательных элементов массива  =  "; P1
       Print "Произведение положительных элементов массива  = "; P2
  If kolS1 > kolS2 Then
       Print "Отрицательных элементов массива больше, чем положительных"
     ElseIf kolS1 = kolS2 Then
       Print "Количество отрицательных и положительных элементов массива равно "
     Else
       Print "Положительных элементов массива больше, чем отрицательных"
  End If
End Sub
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2012, 21:11

Найти сумму четных и нечетных элементов массива
Уважаемые програмисты,я ничего не понимаю в бэйсике, а скоро,очень скоро надо сдать...

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

Найти сумму всех элементов массива, удовлетворяющих условию х>=4. Сосчитать их количество
помогите пожалуйстааа!!!! Нужно найти сумму всех элементов массива,удовлетворяющих условию х&gt;=4. ...


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

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

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