Очень простая задача текстовой среды:

CLS 'очищаем экран
PRINT "Исходный массив:" 'выводим на экран надпись "Исходный массив"
DIM N(6) 'задаем массив из 6 элементов
FOR I=1 TO 6 'это цикл, он позволяет оббежать все 6 элемента массива
N(I)=INT(RND*21-10) 'присваиваем случайное значение от -10 до 10
PRINT N(I); 'печать значений массива в строчку. Если убрать ; то в столбик
N(I)=N(I)*2 'умножение текущего элемента массива на 2
NEXT 'конец цикла
PRINT:PRINT 'пропуск двух строчек, для красоты
PRINT "Конечный массив:" 'печать фразы "Конечный массив"
FOR I=1 TO 6 'это второй цикл, уже для вывода результатов
IF N(I)>0 THEN PRINT N(I) 'если число положительно, вывести его
NEXT 'конец второго цикла

Программа готова. Небольшое пояснение: все, что стоит после символа ' - это комментарии. Их можно спокойно удалить - они ничего не делают.

Желаю Вашей дочке сдать на пять.

mahoune, это задание такое: вывести только положительные числа (quote: "Умножьте элементы массива на 2 и выведите в столбик положительные из них (одномерные массивы)")... Знаешь, меня тоже в свое время бесил этот учитель по информатике: то проверить массив на четность, то на положительность, то вычислить среднее арифметическое массива, то найти сумму всех положительных чисел и затем умножить на сумму всех отрицательных... Окончательно он дастал меня, когда дал задание отсортировать двухмерный массив, и я объяснил ему, что сортировать можно каждый столбец отдельно, каждуб строку отдельно, все вместе, и еще разные комбинации...