qbasic массив

Ответ от Байтаков Жаслан[гуру]
1)
DIM a (100), b (100), c (50)
PRINT " k = ";
INPUT k
FOR i = 1 TO k
a(i) = INT (50 * RND (100))
PRINT "a ("; i ; ")= "; a( i )
NEXT i
PRINT
j = 1
FOR i = 1 TO k
IF a(i) / 2 = INT(a(i) / 2) THEN
b ( j ) = a( i )
PRINT "b ( "; j ; ")= "; b ( j )
j = j + 1
END IF
NEXT i
PRINT
n = INT ( k / 2 )
FOR i = 1 TO n
c ( i ) = a( 2 * i )
PRINT " c ( "; i ; " )= " ; c ( i )
NEXT i
END