CLS
DIM a(20)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 10000 THEN GOTO b
IF INT((a(n)) / 10) = (a(n)) / 10 AND a(n) < 1000 AND a(n) > 99 AND a(n) > h THEN h = a(n)
NEXT i
PRINT h
END
- Создаем массив
- Заполняем
- Ищем максимальное трехзначное, делящееся на 10
- Выводим