Вывести на печать значение и номер первого отрицательного элемента массива

@Bl0ndinka · Регистрация: 25.04.2010

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

помогите составить программу: Дан одномерный массив А(15). Вывести на печать значение и номер первого отрицательного элемента. Пожалуйста помогите!!!!!!!!!!!!

@Quiet Snow · 26.04.2010, 09:50

Вот программа, по идее должна работать(сам не компилировал)

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS ' Очистим экран
 
   ' Целочисленный массив, кол-во эл-в можно менять
CONST Elements = 15
DIM A%(Elements) 
 
   ' Заполним его случайными числами
RANDOMIZE TIMER    ' Случайность
FOR i% = 1 to Elements
   A%(i%) = (RND * 500) - 250  ' Диапазон от -250 до +250
NEXT
 
   ' Найдём первый отрицательный элемент
FOR i% = 1 to Elements
   IF A%(i%) < 0 THEN PRINT "Номер перв. отриц числа:"; i%: EXIT FOR
NEXT
 
END

@кот Бегемот · 26.04.2010, 10:12

>Quiet Snow<, массив надо выводить на экран

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS 
input"vvedite kol-vo elementov ",n
DIM a(n)
RANDOMIZE TIMER 
FOR i = 1 TO n
a(i) = int(RND * 100) - 50 
NEXT
print" massiv" 
FOR i = 1 TO n
print a(i);
NEXT
print
FOR i = 1 TO n
IF A(i) < 0 THEN PRINT "nomer="; i: exit FOR
NEXT

@Quiet Snow · 26.04.2010, 14:36

>массив надо выводить на экран

ok, в условии правда ничего не сказано, но для наглядности надо, ты прав.

@кот Бегемот · 26.04.2010, 16:34

а иначе как проверить, что это первый отрицательный элемент, если массива нет на экране?

@Senya123 · 06.05.2010, 08:53

А если будет сказано что определить значение и номер последнего положительного числа, то как в таком случае будет выглядеть программка? Массив дан произвольно

@кот Бегемот · 06.05.2010, 09:48

Для своих заданий создавайте свою тему, не надо лезть в чужую

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
CLS 
INPUT"vvedite kol-vo elementov ",n
DIM a(n)
RANDOMIZE TIMER 
FOR i = 1 TO n
a(i) = INT(RND * 100) - 50 
NEXT
PRINT" massiv" 
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n
IF A(i) > 0 THEN nom=i
NEXT 
PRINT"poslednij polojitelnyj element=";a(nom)
PRINT "ego nomer="; nom

@Bl0ndinka · 10.05.2010, 18:46 **[ТС]**

Спасибо ОГРОМНОЕ дорогие прогеры! Я очень очень Вам благодарна!!!

echs · 19.08.2016, 09:31

Если программа выведет на экран нулевой элемент, то
это означает, что отрицательных элементов вообще нет.

QBasic/QuickBASIC
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
DECLARE SUB OTR (n!)
 
CLS
RANDOMIZE TIMER
CONST n = 15
DIM SHARED a(n)
DIM SHARED io
 
FOR i = 1 TO n
   a(i) = FIX(40 * RND - 10)
   PRINT a(i);
NEXT
PRINT : PRINT
io = 0
 
CALL OTR(io)
 
PRINT "a("; io; ") ="; a(io)
END
 
SUB OTR (n)
   IF n = 16 THEN EXIT SUB
   IF a(n) >= 0 THEN
      CALL OTR(n + 1)
   ELSE
      io = n
   END IF
END SUB

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Bl0ndinka 20 / 20 / 0 Регистрация: 25.04.2010 Сообщений: 86

	Вывести на печать значение и номер первого отрицательного элемента массива 25.04.2010, 15:02. Показов 2412. Ответов 8 Метки нет (Все метки) помогите составить программу: Дан одномерный массив А(15). Вывести на печать значение и номер первого отрицательного элемента. Пожалуйста помогите!!!!!!!!!!!! 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	26.04.2010, 14:36
	>массив надо выводить на экран ok, в условии правда ничего не сказано, но для наглядности надо, ты прав. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	26.04.2010, 16:34
	а иначе как проверить, что это первый отрицательный элемент, если массива нет на экране? 0

@Senya123 0 / 0 / 0 Регистрация: 04.05.2010 Сообщений: 5
	06.05.2010, 08:53
	А если будет сказано что определить значение и номер последнего положительного числа, то как в таком случае будет выглядеть программка? Массив дан произвольно 0

@Bl0ndinka 20 / 20 / 0 Регистрация: 25.04.2010 Сообщений: 86
	10.05.2010, 18:46 [ТС]
	Спасибо ОГРОМНОЕ дорогие прогеры! Я очень очень Вам благодарна!!! 1

Вывести на печать значение и номер первого отрицательного элемента массива

Решение

Решение

Решение