
  14. 
  ,       
       .
    "" .

     ,        
 .      
    . , 
   ,   
 . ,      .
, ,     .  ,
  .     
    ,     
   .    -
   .   ?  
       ? -
, .     ,    
   .  .   ,  
  ,    -
 -  .
      .   
 : , , ,   .
   ,     .
           
       :

     10 INPUT "   ()"; MILK
     20 INPUT "   ()"; BREAD
     30 INPUT "   ()"; MEAT
     40 INPUT "   ()"; VEGET
     50 INPUT "   ()"; CHEESE
     60 CLS
     70 INPUT ": 1-, 2-, 3-, 4-,
        5-";
     80 INPUT ":"
     90 IF A=1 THEN PRINT MILK; ". "
     100 IF A=2 THEN PRINT BREAD; ". "
     110 IF A=3 THEN PRINT MEAT; ". "
     120 IF A=4 THEN PRINT VEGET; ". "
     130 IF A=5 THEN PRINT CHEESE; ". "
     140 PRINT:GOTO 70

    ,  . , 
 .  ,      -
,       5,  500.  -
   ,    .
  1000 .      
.
         - ,  
 ? , .    -
.      ?  
.      .
   ,    .  
           
.   ? ,    
 .     :

     10 DIM FOOD(5)
     20 PRINT "1-, 2-, 3-, 4-, 5-"
     30 FOR I=1 TO 5
     40 PRINT "   ";I
     50 INPUT FOOD(I)
     60 NEXT I
     70 CLS
     80 PRINT " 1-, 2-, 3-, 4-, 5-"
     90 INPUT I
     100 PRINT " ";FOOD(I)
     110 PRINT
     120 GOTO 90

 .  ,    
    .    
    FOOD(I).   
   .    DIM ( 10)
   :

     DIM ()

DIM      dimension, 
   "".    , 
        ,
   DIM.    
 .         FOOD. 
    5 .   -
   .      
  .
           
 .    , ,  
   . ,    -
    .
     ,       -
,        -
.
            -
.    ,    -
 ,    ,   .   
?  .     ,  
  .   .
     -,    DIM    -
.    :

     10 DIM FOOD (5), MES$(5)

   100

     100 PRINT " "; FOOD (I); MES$(I)

   ,      MES$(I)? -
  .     .  ,
,   :

     MES$(1)="."
     MES$(2)="."

  .     .   
 ,       
.    ,    
 . ?    
:

     15 GOSUB 200
     200 K=1:CLEAR 1000
     210 READ A$
     220 IF A$=" " THEN RETURN
     230 MES$(K)=A$
     240 K=K+1
     250 GOTO 210
     300 DATA ".",".",".",".",
         "."
     310 DATA " "

       ,    .  
 ,    ,   .10,13.
         ,   -
.     , 
    ,   .  
   .
       .      
?
      , ,    FOOD
,    :

     10 DIM FOOD(5*12),MES$(5)

         -
 . ,       -
  FOOD(5*4-4).  ?   
.       .   5 -
 .   .   ,  
       , 
  .
        ,    . 
    :   -
     . , -
    .
       ,         -
 ().   -   .  
       -
,       .  
    ,   -   ( -
)   ( ).    
  .   

     10 DIM FOOD(12,5),MES$(5)

    :

     5 CLEAR 1000
     10 DIM FOOD(12,5),MES$(5)
     15 GOSUB 200
     16 FOR M=1 TO 12
     18 PRINT "  ";
     20 FOR I=1 TO 5
     30 PRINT "  "; MES$(I);
     40 INPUT FOOD (M,I)
     50 NEXT I,M
     60 CLS
     70 INPUT " ",
     80 PRINT "1-,2-,3-,4-,5-"
     90 INPUT I
     100 PRINT "   ";;" ";FOOD(M,I);MES$(I)
     110 PRINT
     120 GOTO 70
     200 K=1
     210 READ A$
     220 IF A$=" " THEN RETURN
     230 MES$(K)=A$
     240 K=K+1
     250 GOTO 210
     300 DATA ". ",". ",". ",". ",
         ". "

,      ,  -
   DIM  ,   :

     DIM  ( 1,  2)

,       
 -  1,  -  2.
        ,   
  .
           -
  . ,     
   ,     -
.   ,      
.     
  .    ,  -
   .    ,
   .       
    . :

     5 CLEAR 1000
     10 DIM FOOD(12,5),MES$(5),FMAX(5),M(5)
     15 GOSUB 200
     16 FOR M=1 TO 12
     18 PRINT "  ";M
     20 FOR I=1 TO 5
     30 PRINT "  "; MES$(I);
     40 INPUT FOOD(M,I)
     50 NEXT I,M
     60 CLS
     65 GOSUB 400
     70 INPUT " ";M
     80 PRINT "1-,2-,3-,4-,5-"
     90 INPUT I
     100 PRINT "   ";M;" ";FOOD(M,I);MES$(I)
     110 PRINT
     120 GOTO 70
     200 K=1
     210 READ A$
     220 IF A$=" " THEN RETURN
     230 MES$(K)=A$
     240 K=K+1
     250 GOTO 210
     300 DATA .,.,.,.,.
     400 FOR I=1 TO 5
     410 FMAX(I)=0
     420 FOR M=1 TO 12
     430 IF FOOD(M,I)>=FMAX(I) THEN FMAX(I)=FOOD(M,I):MM(I)=M
     440 NEXT M,I
     450 FOR I=1 TO 5
     460 PRINT " ";FMAX(I);MES$(I);
         " ";MM(I)
     470 NEXT I
     480 RETURN

     ,      . -
    -   .  
     .
             -
 .       ,
   .      -
.     

     10 DIM A(1)

    ? ? , .   ,
       1,   0. 
,       (0)  (1).  -
? :

     10 DIM A(1)
     20 A(0)=1
     30 A(1)=2
     40 PRINT A(0),A(1)

       .  -
   . ,  (4,15,8)  5*16*9
.
         :   :

     (1)=10
     PRINT A(1)

 .   ?     ,  -
   . , ,   
(1),    ,   -
 DIM. ,     ? -
  :

     (5)=5
     A(6)=6
     A(7)=7
     A(8)=8
     A(9)=9
     A(10)=10

         .
      11,  :

     (11)=11

     .

       

         

     (1,2,3)=123

  

     DIM A(N,M,K)

     11*11*11:

     (10,10,10)

       , 
 10,       DIM.
         .  , 
     .  , 
   .
     1.        .
        ,
      . , 

     100 DIM A%(3,7)

      4*8=32  .
    64 .
     2.       
4 .  

     100 DIM A!(3,7)

     4*4*8=128 .
     3.      8 .
 

     100 DIM A#(3,7)

   8*4*8=256 .
     4.       -
     .    ,
   ,    -


     CLEAR M

  -  ,    .
 

     100 DIM A$(3,7)

       , ..
3*4*8=96  .     -
   ,    -
  .
          , -
   .  (N1,N2...NK)  -
 

     14 + (K*2) + M*((N1+1)+(N2+1)+...(NK+1))

  -   ,    ,
   .

                                