Помогите пожалуйста! В массиве любого размера с целыми числами от 1 до 500,000 одно число повторяется дважды, все остальные числа уникальны. Предложите наиболее быстрый алгоритм поиска повторяющегося числа.Выполнить в Паскаль-код программы либо блок схема

1

Ответы и объяснения

2013-05-25T20:29:57+04:00

var a,b,c:longint;

flag:array[1..500000] of byte;

begin

read(n);

for b:=1 to n do flag[b]:=0;

For b:=1 to n do begin

read(c);//если есть массив то ( не считываем) то пишем вместо рида c:=q[b]; 

// где q название вашего массива

if flag[c]=1 then break else flag[c]:=1;//непомню вроде так пишется break если что исправь

end;

writeln(c);

end.

вроде все верно если чтото непонятно в личку