В двумерном массиве действительных чисел размерностью 5*6 заменить все непарные (нечетные) ряды на заданный одномерный массив действительных чисел размерностью 6 — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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

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

Leave a Comment