Qbasic!!

[jerome_clown]

Для одномерного массива составить программу на алгоритмическом языке Qbasic для нахождения нового массива, элементы которого имеют противоположный знак по отношению к элементам исходного массива.

[NetSpace]

rem задаём массив длиной 10
dim a(10)
dim b(10)
rem случайно заполняем массив числами от -1 до 1
for i =1 to 10 step 1
a[i] = 2*rnd(1)-1
print a[i]
next i
rem //меняем знаки
for i =1 to 10 step 1
b[i] = -a[i]
print b[i]
next i

[Алексей1153]

хех, это в какой пещере до сих пор QBasic издевают )

[kvitaliy]

Сообщение от NetSpace

a[i]

Qbasic не понимает квадратные скобки в массивах.

[сфинкс]

Рабочий пример из темы

REM znaki.bas задаём массив длиной 10
DIM a(10), b(10)
RANDOMIZE TIMER
REM заполняем массив случайными числами от -1 до 1
FOR i = 1 TO 10 STEP 1
    a(i) = 2 * RND - 1
    b(i) = -a(i) :REM //меняем знаки
    PRINT a(i), b(i)
NEXT i
END