CTAJLUH | Дата: Воскресенье, 13.09.2009, 11:41 | Сообщение # 1 |
Рядовой
Группа: Администраторы
Сообщений: 2
Статус: Offline
| Вы зарегились. А ответа нет! Вы разочарованы? Ответы будут! Но потом
|
|
| |
CTAJLUH | Дата: Понедельник, 14.09.2009, 17:16 | Сообщение # 2 |
Рядовой
Группа: Администраторы
Сообщений: 2
Статус: Offline
| CLS INPUT N INPUT M Z$ = "BO BCEX CTPOKAX MACCUBA HET DBYX ODUHAKOBbLX -)JLEMEHTOB" DIM A(N, M) FOR I = 1 TO N FOR J = 1 TO M A(I, J) = INT(RND * 10) PRINT "a("; I; ","; J; ")="; A(I, J) NEXT J NEXT I FOR I = N TO 1 STEP -1 FOR J = 1 TO M - 1 FOR K = J + 1 TO M IF A(I, J) = A(I, K) THEN Z$ = " ": Q = I END IF NEXT K NEXT J NEXT I PRINT Z$ PRINT "HOMEP"; Q
|
|
| |