В массиве X(5,4) найти наименьший из положительных элементов. Массив X задать самостоятельно — Basic(Бейсик)

CLS
DIM X(5, 4)
min=1e+38
RANDOMIZE TIMER
 FOR i = 1 TO 5
  FOR j = 1 TO 4
   X(i, j) = INT(RND*20)-10
     NEXT 
  NEXT 
PRINT"massiv"
 FOR i = 1 TO 5
  FOR j = 1 TO 4
   PRINT X(i, j);" ";
     NEXT 
     PRINT
  NEXT 
 FOR i = 1 TO 5
  FOR j = 1 TO 4
  IF x(i,j)>0 AND x(i,j)< min THEN min=x(i,j)
  NEXT 
 NEXT 
 PRINT "Наименьший из положительных элементов=)"; min

Leave a Comment