DIM a(5,6),b(6)
RANDOMIZE TIMER
PRINT"ishodnyj massiv"
FOR i=1 TO 5
FOR j=1 TO 6
a(i,j)=INT(RND*20)
PRINT a(i,j);
NEXT
PRINT
NEXT
PRINT"zadannyj massiv"
FOR i=1 TO 6
b(i)=INT(RND*10)
PRINT b(i);
NEXT
PRINT
FOR i=1 TO 5 STEP 2
FOR j=1 TO 6
a(i,j)=b(j)
NEXT
NEXT
PRINT"novyj massiv"
FOR i=1 TO 5
FOR j=1 TO 6
PRINT a(i,j);
NEXT
PRINT
NEXT