Пересечение множеств

@Hunter13ua · Регистрация: 25.10.2011

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

Задача в кратце такова: "Даны два неупорядоченных набора целых чисел (может быть, с повторениями). Выдать без повторений в порядке возрастания все те числа, которые встречаются в обоих наборах.Каждое из этих чисел попадает в промежуток от 0 до 10^5. " N и М (1 ≤ N, М ≤ 10^6);
Программа то работает, но на 7 тесте неутомимо выдаёт runtime error.. Я не могу понять причину; на несуществующую ячейку массива вроде бы не ссылаюсь, а других вариантов и не вижу. Буду благодарен за помощь.

Pascal

program mnoj;
var n,m,i,x,y:integer;
a:array[0..10000] of integer;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
read(n,m);
for i:=1 to n do
        begin
        read(x);
        a[x]:=1;
        end;
for i:=1 to m do
        begin
        read(y);
        if a[y]=1 then a[y]:=2;
        end;
for i:=0 to 10000 do
        begin
        if a[i]=2 then write(i,' ');
        end;
close(input); close(output);
end.

@Puporev · 25.10.2011, 13:22

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

.Каждое из этих чисел попадает в промежуток от 0 до 10^5.

Это 100000
а у тебя

Pascal

1	a:array[0..10000] of integer;

Это 10^4

@Hunter13ua · 25.10.2011, 16:27 **[ТС]**

Ох блин.. Давно так не тупил

Спасибо!

@Hunter13ua 46 / 46 / 18 Регистрация: 25.10.2011 Сообщений: 183
	25.10.2011, 16:27 [ТС]	3
	Ох блин.. Давно так не тупил Спасибо! 0