Как определить разность знаков у переменных

[бедный_студент]

В заданном одномерном массиве поменять соседние элементы, если они имеют разные знаки

прога простая начал писать думал делать нефиг, а потом дошло что не все подряд переменные свопить надо а только те что стоят рядом и имеют разные знаки. как мне в блоке иф определить разность знакой у m(i) и m(i+1) ?

CLS
INPUT "", n
DIM m(n)
RANDOMIZE TIMER
FOR i = 1 TO n
m(i) = 50 - (INT(RND(1) * 100))
PRINT m(i)
NEXT i
PRINT
PRINT
FOR i = 1 TO n - 1
IF m(i + 1) < 0 THEN SWAP m(i + 1), m(i) // не верно
NEXT i
FOR i = 1 TO n
PRINT m(i)
NEXT i

[counter]

что то вроде этого :

если (первое меньше нуля И второе больше нуля) ИЛИ (первое больше нуля И второе меньше нуля )
то Меняем

[бедный_студент]

if m(i)>0 and m(i+1)<0 then swap m(i),m(i+1)
if m(i)<0 and m(i+1)>0 then swap m(i),m(i+1)
тока он вроде такие сложные операторы не поддерживает ...

[counter]

в C/С++ так

if( (m[i]>0 && m[i+1]<0) || (m[i]<0 && m[i+1]>0) )

[Levsha100]

Сообщение от бедный_студент

if m(i)>0 and m(i+1)<0 then swap m(i),m(i+1)
if m(i)<0 and m(i+1)>0 then swap m(i),m(i+1)
тока он вроде такие сложные операторы не поддерживает ...

if ((m(i)>0) and (m(i+1)<0)) or ((m(i)<0) and (m(i+1))>0) then swap m(i),m(i+1)

Так будет работать!

[бедный_студент]

ах вона что, тут скобки нужны! урааа))) благодарю

[бедный_студент]

тогда еще вот задачка:
Дано натуральное число. Определить, является ли сумма его максимальной и минимальной цифр кратной числу а

CLS
PRINT TAB(10);
PRINT "Naiti summu minimal'nogo i maksimal'nogo elementa "; ""
PRINT TAB(10);
PRINT "Natural'nogo chisla i opredelit' yavlyaetsya li ono kratnym chislu a";
PRINT
FOR i = 1 TO 80
PRINT CHR$(196);
NEXT i
PRINT : PRINT : PRINT TAB(10);
PRINT "Vvedite natural'noe chislo...";
INPUT "", n
PRINT TAB(10);
PRINT "Vvedite chislo a...";
INPUT "", a
n$ = n
dp = LEN(n$)
PRINT dp
DIM a(dp): n = 10 ^ (dp - 1)

FOR i = 1 TO dp
a(i) = ((c / n) MOD 10): n = n / 10
If i=1 then a(i)-c/n
IF i = dp THEN a(i) = c MOD 10
NEXT i




я на правильном пути ?
какая дробь как делит я забыл / - нацело, а \ - как есть ?

[бедный_студент]

опаньки, оказывается нельзя делать так n$=n (строковой переменной нельзя приравнять значение чифровой....как мне это сделать мне нужно узнать длину переменнной n а "len (n)" так не делает....?)

[capta1n]

что за язык? указывайте, пожалуйста, в скобках в имени темы

[Sazary]

бедный_студент

Дано натуральное число. Определить, является ли сумма его максимальной и минимальной цифр кратной числу а

Вот как:

CLS
DIM n AS LONG
DIM a AS INTEGER
DIM min, max, t AS INTEGER

INPUT "Vvedite n: "; n
INPUT "Vvedite a: "; a
min = 10
max = -1
DO WHILE n > 0
 t = n MOD 10
 IF t < min THEN
  min = t
 END IF
 IF t > max THEN
  max = t
 END IF
 n = n \ 10
LOOP

IF (min + max) MOD a = 0 THEN
 PRINT USING "# + # delitsya na #"; min; max; a
ELSE
 PRINT "Ne delitsya"
END IF

END

Или, если читать число как строку, то так:

CLS
DIM n AS STRING
DIM a, i AS INTEGER
DIM min, max, t AS INTEGER

INPUT "Vvedite n: "; n
INPUT "Vvedite a: "; a
min = 10
max = -1

i = 1
DO WHILE i <= LEN(n)
 t = VAL(MID$(n, i, 1))
 IF t > max THEN
  max = t
 END IF
 IF t < min THEN
  min = t
 END IF

i = i + 1
LOOP

IF (min + max) MOD a = 0 THEN
 PRINT USING "# + # delitsya na #"; min; max; a
ELSE
 PRINT "Ne delitsya"
END IF

END

И переменные хорошо бы объявлять. Не стоит пользоваться этим допущением бейсика - плохому учит.