Определить индекс минимального и индекс максимального значений массива

@Асланбек · Регистрация: 21.05.2012

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

Дан одномерный массив! Определить индекс минимального и индекс максимального значений?

Очень срочно! Заранее благодарю!!!

@Асланбек · 24.05.2012, 20:04 **[ТС]**

блин! неужели ни кто не поможет?

@softmob · 24.05.2012, 20:32

определение индекса минимального элемента массива

QBasic/QuickBASIC

min = a(1)
imin = 1
FOR i = 2 TO n
    IF a(i) < min THEN min = a(i): imin = i
NEXT

определение индекса максимального элемента массива

QBasic/QuickBASIC

max = a(1)
imax = 1
FOR i = 2 TO n
    IF a(i) > max THEN max = a(i): imax = i
NEXT

ввод и вывод сможете сами приделать?

@Асланбек · 24.05.2012, 20:34 **[ТС]**

Прошу вас напишите все по порядку! Я не шарю в этой теме. Болел. Буду очень признателен! Спасибо!

@softmob · 24.05.2012, 20:36

QBasic/QuickBASIC

INPUT "enter n: ", n
DIM a(n)
FOR i = 1 TO n
    PRINT "enter a("; i; ")";
    INPUT ": ", a(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
min = a(1)
imin = 1
FOR i = 2 TO n
    IF a(i) < min THEN min = a(i): imin = i
NEXT
max = a(1)
imax = 1
FOR i = 2 TO n
    IF a(i) > max THEN max = a(i): imax = i
NEXT
PRINT "index min: "; imin
PRINT "index max: "; imax

@Асланбек · 24.05.2012, 20:37 **[ТС]**

Спасибо огромное! Отличный сайт. Расскажу друзьям.

@Асланбек 1 / 1 / 2 Регистрация: 21.05.2012 Сообщений: 9
		1
	Определить индекс минимального и индекс максимального значений массива 21.05.2012, 20:23. Показов 3412. Ответов 5 Метки нет (Все метки) Дан одномерный массив! Определить индекс минимального и индекс максимального значений? Очень срочно! Заранее благодарю!!! 0

@Асланбек 1 / 1 / 2 Регистрация: 21.05.2012 Сообщений: 9
	24.05.2012, 20:04 [ТС]	2
	блин! неужели ни кто не поможет? 0

@Асланбек 1 / 1 / 2 Регистрация: 21.05.2012 Сообщений: 9
	24.05.2012, 20:34 [ТС]	4
	Прошу вас напишите все по порядку! Я не шарю в этой теме. Болел. Буду очень признателен! Спасибо! 0

@Асланбек 1 / 1 / 2 Регистрация: 21.05.2012 Сообщений: 9
	24.05.2012, 20:37 [ТС]	6
	Спасибо огромное! Отличный сайт. Расскажу друзьям. 0