Вывод множеств, Как вывести на экран множества Опции

[pank]

Добрый день, извините за, возможно, глупый вопрос - как вывести на экран множество, оператор write не работает. У меня множество чисел от 1 до N, я формирую из него подмножество элементов( m1), не превышающих 10, как их вывести на экран? Печатать команду:

for i:=1 to N do
if (i in m1) then write(i)

или есть другой способ?

[volvo]

А что, тот же самый цикл не пойдет? Или гласные буквы не являются подмножеством ВСЕХ букв? Тебе надо только позаботиться о том, чтобы ВНОСИТЬ во множество только гласные буквы, тогда будут выводиться отсортированные гласные. Ну, если хочешь, сделай так:

for ch := #0 to #255 do begin
  if ch in myset then write(ch);
end;

и начинай пользоваться поиском, только сегодня ТОЧНО такое же решение уже приводилось. Сколько можно дублировать коды???