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

         NEXT
         PRINT
         PRINT "Число отрицательных элементов: ",k
         END
               Подсчет количества отрицательных элементов массива происходит в
         цикле:
         FOR I=0 TO n-1
         IF mas(I)<0 THEN k=k+1
         NEXT
               Пример: Составить программу для вычисления наибольшего элемен-
         та массива и его номера.
         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
         max=mas(0)
         nomer=1
         FOR I=0 TO n-1
         IF mas(I)>max THEN
         max=mas(I)
         nomer=I+1
         END IF
         NEXT
         PRINT
         PRINT "Максимальный элемент: ", max, " с номером ", nomer
         END
               Задание выполняется в строчках:
         max=mas(0)
         nomer=1
         FOR I=0 TO n-1
         IF mas(I)>max THEN
         max=mas(I)
         nomer=I+1
         END IF
         NEXT


                                                                             29


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