Найдите самую длинную и короткую фамилию

@FER · Регистрация: 08.04.2010

Author24 — интернет-сервис помощи студентам

Задайте символьный массив из 12 элементов, содержащих фамилии учащихся. Найдите самую длинную и короткую фамилию. Выведите на экран массив и найденные элементы.

@кот Бегемот · 13.04.2010, 15:22

Сообщение от FER

Задайте символьный массив из 12 элементов, содержащих фамилии учащихся. Найдите самую длинную и короткую фамилию. Выведите на экран массив и найденные элементы.

PureBasic

DIM a$(12)
FOR i=1 TO 12
INPUT "vvedite familiyu ",a$(i)
NEXT
min$=a$(1)
max$=a$(1)
PRINT "ishodnyj massiv"
FOR i=1 TO 12
PRINT a$(i)
NEXT
 
FOR i=1 TO 12
IF LEN(a$(i))>len(max$) THEN max$=a$(i)
IF LEN(a$(i))<len(min$) THEN min$=a$(i)
NEXT
print"samaya dlinnaya=";max$
print"samaya korotkaya="min$

@FER · 13.04.2010, 16:40 **[ТС]**

Спасибо.

@FER 3 / 3 / 1 Регистрация: 08.04.2010 Сообщений: 49
		1
	Найдите самую длинную и короткую фамилию 13.04.2010, 14:33. Показов 1403. Ответов 2 Метки нет (Все метки) Задайте символьный массив из 12 элементов, содержащих фамилии учащихся. Найдите самую длинную и короткую фамилию. Выведите на экран массив и найденные элементы. 0

@FER 3 / 3 / 1 Регистрация: 08.04.2010 Сообщений: 49
	13.04.2010, 16:40 [ТС]	3
	Спасибо. 0

Опции темы

Найдите самую длинную и короткую фамилию

Решение