18.09.2008, 09:05
общий
это ответ
Здравствуйте, Андреев Павел Александрович!
Решается задача так:
CLS
dim A$(12)
FOR I= 1 TO 12
READ A$(i)
NEXT I
INPUT "НОМЕР МЕСЯЦА" ; I
rem здесь необходимо поставить защиту от "дурака", то есть проверку на валидность введёной информации - надеюсь пропишите сами ;)
? A$(I)
END
DATA ЯНВАРЬ,ФЕВРАЛЬ,МАРТ
rem заполнить необходимо все месяцы, то есть в Data должно бтыь 12 элементов.