CLS
DO
INPUT "kol strok"; N
LOOP UNTIL (N >= 2) AND (N <= 15)
DO
INPUT "kol stolbcov"; M
LOOP UNTIL M >= 2 AND M <= 15
DIM A(N, M)
FOR i = 1 TO N
FOR j = 1 TO M
A(i, j) = INT(RND * 100 - 50)
PRINT USING "####"; A(i, j);
NEXT j
PRINT
NEXT i
INPUT "levii interval"; L
INPUT "pravii interval"; R
found = false
FOR i = 1 TO N: FOR j = 1 TO M
IF A(i, j) >= L AND A(i, j) <= R THEN
IF found THEN
IF A(i, j) > Max THEN Max = A(i, j)
ELSE
Max = A(i, j)
found = true
END IF
END;
NEXT: NEXT
IF found THEN
PRINT Max
ELSE
PRINT "gggg"
END IF
ПИШЕТ next без for.....
И еще почему в 7 строчке снизу end и потом ;...
максимальный элемент массива из заданного интервала
- Naeel Maqsudov
- Сообщения: 2551
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Код: Выделить всё
CLS
DO
INPUT "kol strok"; N
LOOP UNTIL (N >= 2) AND (N <= 15)
DO
INPUT "kol stolbcov"; M
LOOP UNTIL M >= 2 AND M <= 15
DIM A(N, M)
FOR i = 1 TO N
FOR j = 1 TO M
A(i, j) = INT(RND * 100 - 50)
PRINT USING "####"; A(i, j);
NEXT j
PRINT
NEXT i
INPUT "levii interval"; L
INPUT "pravii interval"; R
found = false
FOR i = 1 TO N: FOR j = 1 TO M
IF A(i, j) >= L AND A(i, j) <= R THEN
IF found THEN
IF A(i, j) > Max THEN Max = A(i, j)
ELSE
Max = A(i, j)
found = true
END IF
END IF
NEXT: NEXT
IF found THEN
PRINT Max
ELSE
PRINT "gggg"
END IF