одномерный массив в QBasic...HELP!!!

[kockroach]

Помогите пожалуйста с задачей!(я новичок и пока плохо разбираюсь...очень))

задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все отрицательные элементы на наименьший положительный. Выведите на экран исходный и полученный массивы...

Заранее огромное спасибо!!!)))

[Рустам]

CLS
RANOMIZE TIMER
INPUT "Введите количество элементов массива"; N
DIM MASS(N)
FOR I=1 ТО N
MASS(I)=RND(200)-100
NEXT I
FOR I=2 TO N
IF (MASS(I-1)>MASS(I)) AND (MASS(I)>0) THEN
P=MASS(I)
END IF
NEXT I
FOR I=1 TO N
IF MASS(I)<0 THEN MASS(I)=P
? MASS(I)
NEXT I

[Teralexyour]

Не могу решить задачу, помогите пожалуста!
"Определить номер строки матрицы А, в которой содержится наибольшее число положительных элементов. В программе осуществить ввод элементов массивов и вывод их на экран. Основные действия задачи оформить в виде подпрограммы."
есть начало:
CLS
PRINT "VVEDITE KOL-VO STROK MASSIVA"
INPUT N
PRINT "VVEDITE KOL-VO STOLBCOV MASSIVA"
INPUT M
DIM M(N, M)
FOR I = 1 TO N
FOR J = 1 TO M
PRINT "X("; I; ","; J; ")="
INPUT X(I, J)
NEXT J
NEXT I

что дальше делать не знаю (((

[12345678]

Если кому поможет:
"ВЫЧИСЛЕНИЕ МАКСИМАЛЬНОГО ЭЛЕМЕНТА МАССИВА"
CLS
INPUT "Введите число элементов "; N
DIM A(N)
FOR i = 1 TO N
PRINT "Введите элемент";
INPUT A(i)
NEXT i
FOR i = 1 TO N - 1
FOR k = i + 1 TO N
IF A(i) > A(k) THEN X = A(i): A(i) = A(k): A(k) = X
NEXT k
NEXT i
PRINT "Наибольшее="; X
END
Смысла не понял, зато работает

[zyw1x]

Помогите! Учитель задал:
Ввести с клавиатуры зна4ение елементов массивов А(10) и В(10). Сформулировать массив С(10,10) , где С (I,J)= A(I)-B(J),если эта разница больше 20 и С(I,J)=0 в другом слу4ае.

[Kisochka]

Помогите пожалуйста! Вот задача - за один просмотр в массиве А первый и последний элемент, имеющий заданное значение 8, определить на каком месте находятся эти элементы в массиве (массив одномерный).

[sasa999]

Как увеличить размерность одномерного массива? Команда DIM Y(16383)
задает массив в 16384 элемента (целые числа), а мне нужно хотя бы 300000. В простых учебниках такой инфы не нашел..

[sasa999]

Еще. КАк картинку(график), полученную на экране в результате работы QB распечатать? Клавиши Print Screen и т.п. не помогают.
Или картинку сохранить в JPG, BMP ? QB уводит комп в эмулятор ДОСа, а там все непросто..

[Петя13]

Дан одномерный массив.Число элементов 16, формат числа +-цц.цц.Для элементов, принадлежащих заданному интервалу, определить среднее арифметическое и максимум.Результаты распечатать в виде:
Число элементов массива...Заданный интервал(...;...)
Массив:
................................... ................................... ................................... ..
Для элементов, принадлежащих интервалу:
среднее..., максимум...

[osichev]

помогите помогите помогите
у меня кошка рожает)