Найти максимальное или минимальное числа в массиве

10.01.2011, 20:57. **Показов** 3394. **Ответов** 5

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

Имеется массив A из N произвольных чисел - A(N), из которых есть положительные, отрицательные и равные нулю. Нужно найти максимальное и минимальное числа, и напечатать те элементы массива, которые в массиве находятся между ними. Так если А=(2,4,-3,0,2,5,-2), результат: -3,0,2,5 (max=5,min=-3)

QBasic/QuickBASIC

INPUT "Vvedite kolischestvo elemetov N ",N
DIMM a(N)
FOR i=1 TO N
INPUT "Vvedite element ",a(i)
NEXT
PRINT "massiv"
FOR i=1 TO N
PRINT a(i)
NEXT

Объявить массив то - объявил, а дальше

@Azarduh · 11.01.2011, 20:16

вот вам продолжение:

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

QBasic/QuickBASIC

100 max=a(1)
110 min=a(2)
120 FOR i=1 TO n
130 IF a(i) > max THEN max = a(i)
140 IF a(i) < min THEN min = a(i)
150 NEXT
160 PRINT "max="; max, "min="; min
170 FOR i = 1 TO n 
180 IF a(i)= max THEN mmax= i
190 IF a(i)= min THEN kmin = i
200 NEXT
210 FOR i=1 TO n
220 IF i > mmax AND i < kmin OR i < mmax AND i > kmin THEN a(i)
230 NEXT i
240 END

@Shkap · 11.01.2011, 22:58

немного проще можно тс у тя лекс ошибки

PureBasic

INPUT "kolischestvo elemetov",N
DIM a(N)
FOR i=1 TO N
cls
? "a("; i; ")=";
input a(i)
NEXT
PRINT "massiv"
FOR i=1 TO N
PRINT a(i)
NEXT i
min = a(1)
mi=1
max = a(1)
ma=1
for i =1 to n
if a(i)>max130 then max = a(i): ma=i
if a(i) < min then min = a(i): mi=i
next i
if mi>ma then
for i = ma to mi
? a(i)
next i
end if
if mi<ma then
for i = mi to ma
? a(i)
next i
end if

@Azarduh · 11.01.2011, 23:17

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

Добавлено через 9 минут
единственное я не обратил особого внимания на случай если будут несколько одинаковых минимальных или максимальных числа

@Shkap · 11.01.2011, 23:45

не сказал бы что у тебя проще, хотя кто как мыслит

согласен просто чэти энд и ор большые на вид

и еще где этот грамм ошибки в моей программке?

я обращался к ТСу - создатель темы

в чем именно ошибся?

единственное я не обратил особого внимания на случай если будут несколько одинаковых минимальных или максимальных числа

и еще как писать в коде Бейсика?

тут есть кнопочка во втором ряду сверху 4 слева она назся выделить код Ваsiс

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

Добавлено через 3 минуты
[ BASIC][ /BASIC]
вот если что эти как их а вспомнил тэги ток надо без пробелов после квадратных скобок

@Azarduh · 12.01.2011, 00:02

спасибо большое

@Azarduh 16 / 16 / 6 Регистрация: 11.01.2011 Сообщений: 33
	11.01.2011, 23:17	4
	не сказал бы что у тебя проще, хотя кто как мыслит, и еще где этот грамм ошибки в моей программке? в чем именно ошибся? и еще как писать в коде Бейсика? Добавлено через 9 минут единственное я не обратил особого внимания на случай если будут несколько одинаковых минимальных или максимальных числа 0

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459
	11.01.2011, 23:45	5
	не сказал бы что у тебя проще, хотя кто как мыслит согласен просто чэти энд и ор большые на вид и еще где этот грамм ошибки в моей программке? я обращался к ТСу - создатель темы в чем именно ошибся? единственное я не обратил особого внимания на случай если будут несколько одинаковых минимальных или максимальных числа и еще как писать в коде Бейсика? тут есть кнопочка во втором ряду сверху 4 слева она назся выделить код Ваsiс Добавлено через 1 минуту если нашел потверди пустым кодом бэсика а я спать удачи всем Добавлено через 3 минуты [ BASIC][ /BASIC] вот если что эти как их а вспомнил тэги ток надо без пробелов после квадратных скобок 1

@Azarduh 16 / 16 / 6 Регистрация: 11.01.2011 Сообщений: 33
	12.01.2011, 00:02	6
	спасибо большое 0

Найти максимальное или минимальное числа в массиве

Решение