Напишите программу которая заполняет с клавиатуры массив А(3,3) словами разного размера и заменяет в нем максимальное по длине слово на слово "MAX"
Категория: Basic
2012-03-27 16:47:59
Выведите на экран исходный и полученный массив
code: #basic
DIM a$(3, 3) FOR i = 1 TO 3 FOR j = 1 TO 3 INPUT "vvedite slovo ", a$(i, j) NEXT NEXT PRINT "massiv" FOR i = 1 TO 3 FOR j = 1 TO 3 PRINT a$(i, j); " "; NEXT PRINT NEXT max$ = a$(1, 1) FOR j = 1 TO 3 FOR i = 1 TO 3 IF LEN(a$(i, j)) > LEN(max$) THEN max$ = a$(i, j): maxd = LEN(max$) NEXT NEXT FOR j = 1 TO 3 FOR i = 1 TO 3 IF LEN(a$(i, j)) = maxd THEN a$(i, j) = "max" NEXT NEXT PRINT "novyj massiv" FOR i = 1 TO 3 FOR j = 1 TO 3 PRINT a$(i, j); " "; NEXT PRINT NEXT
автор: кот Бегемот
Поделиться: