Массив чисел. Найти числа, которые находятся между первыми максимальным и минимальным - VB
Формулировка задачи:
Дан массив целых чисел A={ai}, где i={1,2...n}
Напечатать числа, находящиеся между первым максимальным и минимальным числами.
Пример: Так, если A={2,4,-3,0,2,5,-2}, результат 0, 2 (max=5, min=-3)
Решение задачи: «Массив чисел. Найти числа, которые находятся между первыми максимальным и минимальным»
textual
Листинг программы
dim max as integer
dim min as integer
din n as integer
n=val(inputbox("n"))
redim A(n)
max=0:min=0
for i=1 to n
A(i)=val(inputbox("A(i)"))
if max<A(i) then max=A(i): ch1=i
if min>A(i) the min=A(i): ch2=i
next i
if ch1<ch2 then
for i=ch1+1 to ch2-1
print A(i)
next i
end if
redim pA(2^7)
if ch1>ch2 then
ch=ch+1
for i=ch2+1 to ch1-1
pA(ch)=A(i)
next i
for i=ch to 1
print pA(i)
next i
end if