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

disel
1
2
3
4
5
PRINT "Задание 2: "
FOR I = 1 TO N
         IF ABS(A(I)) MOD 2 = 1 THEN A(I) = 0
         PRINT A(I);
NEXT I

Следующий вариант

1
2
3
4
5
6
7
8
9
10
11
12
13
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

Похожие записи/страницы: