Вывод результата. Множество

@Tony · Регистрация: 02.05.2014

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

Очень срочно!!!
Вот код программы. Нужно сделать вывод результата на экран.

Pascal

type
mn=set of byte;
var
i,n,k:integer;
l:mn;
begin
randomize;
writeln ('число');
readln (n);
l:=[];
for i:=1 to n do
l:=l+[random(100)];
.....
end.

@Oleg_as · 01.07.2014, 19:16

что вывести надо?

Добавлено через 1 минуту
если l тогда пожалсто

Pascal

type
mn=set of byte;
var
i,n,k:integer;
l:mn;
begin
randomize;
writeln ('число');
readln (n);
l:=[];
for i:=1 to n do
l:=l+[random(100)];
writeln('l=',l);
end.

@Iriini · 01.07.2014, 19:27

вывод результата на экран

Во множестве могут оказаться любые случайные числа от 0 до 99. Надо проверить и вывести, что вошло.

Pascal

1 2	for i:=0 to 99 do if i in l then write(i,' ');

@Cyborg Drone · 01.07.2014, 21:04

Oleg_as, множество у Вас ну никак не напечатается... Что-то несуразное Вы написали, право...

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	01.07.2014, 21:04	4
	Oleg_as, множество у Вас ну никак не напечатается... Что-то несуразное Вы написали, право... 0