Помогите пожалуйста! В массиве любого размера с целыми числами от 1 до 500,000 одно число повторяется дважды, все остальные числа уникальны.Предложите наиболее быстрый алгоритм поиска повторяющегося числа.Выполнить в Паскаль-код программы либо блок схема
var a,b,c:longint; flag:array[1..500000] of byte; begin read(n); for b:=1 to n do flag:=0; For b:=1 to n do begin read(c);//если есть массив то ( не считываем) то пишем вместо рида c:=q; // где q название вашего массива if flag[c]=1 then break else flag[c]:=1;//непомню вроде так пишется break если что исправь end; writeln(c); end. вроде все верно если чтото непонятно в личку
