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

@Powerman · Регистрация: 22.12.2009

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста сдалать следующие 2 задачи :
1)вычислить сумму и количество положительных, сумму и количество отрицательных элементов массива А, состоящего из 30 элементов.
2)подсчитать наибольшее количество пробелов, идущих подряд, в заданной символьной строке.
язык Qbasic.Всю голову переломал , разбил клавиатуру , что-то не выходит.На вас последняя надежда.Заранее благодарю!

@M0l04nik · 23.12.2009, 05:03

элементы массива должны вводится программно или пользователь сам их введет?

Добавлено через 1 час 0 минут
вот код для первой задачи с ручным вводом элементов

QBasic/QuickBASIC

10 REM
20 CLS
30 DIM A(30)
40 FOR i=1 TO 30
50 PRINT "Введите "; i;" элемент массива"
60 INPUT A(i)
70 NEXT i
80 FOR i=1 TO 30
90 IF A(i) < 0 THEN k=k+1
100 m=m+ABS(A(i))
110 IF A(i) > 0 THEN t=t+1
120 s=s+ABS(A(i))
130 NEXT i
140 PRINT "Сумма положительных элементов="; s; "Количество положительных элементов"; t
150 PRINT "Сумма отрицательных элементов"; m; "Количество отрицательных элементов"; k
160 END

Добавлено через 13 минут
вот код для первой задачи с ручным вводом элементов

QBasic/QuickBASIC

10 REM
20 CLS
30 DIM A(30)
40 FOR i=1 TO 30
50 PRINT "Введите "; i;" элемент массива"
60 INPUT A(i)
70 NEXT i
80 FOR i=1 TO 30
90 IF A(i) < 0 THEN k=k+1: m=m+ABS(A(i))
100 IF A(i) > 0 THEN t=t+1: s=s+ABS(A(i))
110 NEXT i
120 PRINT "Сумма положительных элементов="; s; "Количество положительных элементов"; t
130 PRINT "Сумма отрицательных элементов"; m; "Количество отрицательных элементов"; k
140 END

Добавлено через 45 секунд
первый код не смотри он с недочетами

@кот Бегемот · 23.12.2009, 13:32

а abs здесь за каким? Выкинуть его, иначе будет неверная сумма

Добавлено через 19 минут

подсчитать наибольшее количество пробелов, идущих подряд, в заданной символьной строке.

PureBasic

input a$
for i=1 to len (a$)
if mid$(a$,i,1)<>" " then k=0 else k=k+1:if k>max then max=k:
next
print max

@Powerman · 23.12.2009, 19:08 **[ТС]**

Благодарствую <3

@Кариша8 · 27.12.2009, 17:00

Пожалуйста, помогите решить задачку...очень-очень нужно..
Даны числа Р и Н (Р<Н).Суммировать вводимые числа,большие Н и отдельно суммировать числа меньшие Р.Определить кол-во тех и других слагаемых.При вводе числа равного Р или Н закончить работу.
Я очень на вас надеюсь,заранее большое спасибо!

@Powerman 0 / 0 / 0 Регистрация: 22.12.2009 Сообщений: 3
		1
	Вычислить сумму и количество положительных, сумму и количество отрицательных элементов массива 22.12.2009, 20:09. Показов 2879. Ответов 4 Метки нет (Все метки) Помогите пожалуйста сдалать следующие 2 задачи : 1)вычислить сумму и количество положительных, сумму и количество отрицательных элементов массива А, состоящего из 30 элементов. 2)подсчитать наибольшее количество пробелов, идущих подряд, в заданной символьной строке. язык Qbasic.Всю голову переломал , разбил клавиатуру , что-то не выходит.На вас последняя надежда.Заранее благодарю! 0

@Powerman 0 / 0 / 0 Регистрация: 22.12.2009 Сообщений: 3
	23.12.2009, 19:08 [ТС]	4
	Благодарствую <3 0

@Кариша8 0 / 0 / 0 Регистрация: 27.12.2009 Сообщений: 8
	27.12.2009, 17:00	5
	Пожалуйста, помогите решить задачку...очень-очень нужно.. Даны числа Р и Н (Р<Н).Суммировать вводимые числа,большие Н и отдельно суммировать числа меньшие Р.Определить кол-во тех и других слагаемых.При вводе числа равного Р или Н закончить работу. Я очень на вас надеюсь,заранее большое спасибо! 0

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

Решение