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

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