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

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