Задайте массив из 10 элементов с помощью датчика случайных чисел. Заменить все нечётные элементы с чётными индексами на нули. Выведите на экран исходный и полученный массив- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DIM a(10)
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i=1 TO 10
a(i)=INT(RND*10)+1
PRINT a(i);
NEXT
PRINT
FOR i=1 TO 10
IF a(i) MOD 2<>0 AND i MOD 2=0 THEN a(i)=0
NEXT
PRINT"novyj massiv"
FOR i=1 TO 10
PRINT a(i);
NEXT

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

Leave a Comment