Програмирование на языке Basic. Федоряка Н.И. - 28 стр.

         зоне от 0 до 2. Прибавив к нему число 3, мы поучаем случайную оценку,
         которая не меньше 3 и не больше 5.
               Пример: Составить программу заполнения массива из 15 элементов
         случайными числами в диапазоне от 1 до 10. Предусмотреть вывод масси-
         ва на экран.
         REM Заполнение и вывод массива
         DIM mas(15) AS INTEGER
         FOR I=0 TO 14
         mas(I)=1+INT(RND*10)
         NEXT
         CLS
         PRINT "Вывод массива"
         FOR I=0 TO 14
         PRINT mas(I);
         NEXT
         END
               Тоже самое задание, но отличающиеся объявлением массива:
         REM Заполнение и вывод массива
         DIM mas(1 TO 15) AS INTEGER
         FOR I=1 TO 15
         mas(I)=1+INT(RND*10)
         NEXT
         CLS
         PRINT "Вывод массива"
         FOR I=1 TO 15
         PRINT mas(I);
         NEXT
         END
               Всё очень просто. Какой из вариантов использовать решать вам.
               Пример: Вывести количество отрицательных элементов массива.
         REM Вывести количество отрицательных элементов
         INPUT "Введите число элементов массива", n
         DIM mas(n) AS INTEGER
         FOR I=0 TO n-1
         INPUT "Введите элемент массива", mas(I)
         NEXT
         CLS
         PRINT "Вывод массива"
         FOR I=0 TO n-1
         PRINT mas(I);
         NEXT
         FOR I=0 TO n-1
         IF mas(I)<0 THEN k=k+1

         28


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com