В двумерном массиве D(5 ;5) все элементы равные M заменить на N. Вывести полученный массив- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DIM d(5,5)
INPUT"vvedite M ",m
INPUT"vvedite N ",n
RANDOMIZE TIMER
PRINT"ishodnyj massiv"
FOR i=1 TO 5
FOR j=1 TO 5
d(i,j)=INT(RND*10)
PRINT d(i,j);
NEXT
PRINT
NEXT
PRINT"novyj massiv"
FOR i=1 TO 5
FOR j=1 TO 5
IF d(i,j)=m THEN d(i,j)=n
PRINT d(i,j);
NEXT
PRINT
NEXT

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

Leave a Comment