program xx;
var f,g:file of integer;
a:set of byte;
n,i,x:integer;
begin
a:=[];
assign(f,'input.txt');
assign(g,'output.txt');
rewrite(f);
rewrite(g);
Write('Сколько чисел записать? ');
readln(n);
randomize;
For i:=1 to n do
begin
x:=random(15);
write(x,' ');
write(f,x);
If not (x in a) then
begin
write(g,x);
a:=a+[x];
end;
end;
reset(g);
writeln;
While not eof (g) do
begin
read(g,x);
write(x,' ');
end;
close(f);
close(g);
readln
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.