Заменить нечетные элементы одномерного массива нулём

Категория: Basic
2011-09-28 16:44:20

Задать случайным образом из промежутка [-9;9] одномерный массив A(N).

вариант 1:

code: #basic
PRINT "Задание 2: "
FOR I = 1 TO N
         IF ABS(A(I)) MOD 2 = 1 THEN A(I) = 0
         PRINT A(I);
NEXT I

автор: ДваДва

вариант 2:

code: #basic
CLS
  INPUT "Kol-vo elementov :", N
  DIM A(N) AS INTEGER
  RANDOMIZE TIMER
FOR i = 1 TO N
    A(i) = RND * 18 - 9
NEXT
FOR i = 1 TO N
    IF (A(i) AND 1) = 1 THEN A(i) = 0
NEXT
FOR i = 1 TO N
    PRINT A(i);
NEXT

автор: >Quiet Snow<

Поделиться:

Похожие статьи:

теги: массив, одномерный массив, студенты, qbasic, нечётные элементы