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

@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

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

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

Решение

Решение

Решение

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

	Вывести на печать значение и номер первого отрицательного элемента массива 25.04.2010, 15:02. Показов 2381. Ответов 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