AnLev_1

DIM N AS INTEGER, M AS INTEGER, I AS INTEGER, J AS INTEGER, Min AS INTEGER
DIM Cur AS INTEGER
CLS
DO
    INPUT "Input N [2..10]: ", N
LOOP WHILE N < 2 OR N > 10
DO
    INPUT "Input M [2..10]: ", M
LOOP WHILE M < 2 OR M > 10
RANDOMIZE TIMER
DIM A(1 TO N, 1 TO M) AS INTEGER
Min = 32767
FOR J = 1 TO M
    Cur = 0
    FOR I = 1 TO N
        A(I, J) = INT(RND * 50) + 1
        PRINT A(I, J);
        Cur = Cur + A(I, J)
    NEXT I
    Cur = Cur / N
    PRINT " ("; Cur; ")"
    IF Min > Cur THEN Min = Cur
    PRINT ""
NEXT J
PRINT "Min ="; Min