Размещено 5 лет назад по предмету
Информатика
от Аккаунт удален
СРОЧНО!!! ОСТАЛОСЬ МАЛО ВРЕМЕНИ!!! 15 БАЛЛОВ!!! Нужно ускорить работу программы по нахождению количества различных элементов в массиве. Массив достигает до 100 000 элементов, а сами элементы до 2 000 000 000. Код написан снизу. Можно что-то добавить или изменить, можно вообще другой код написать. Даю 15 чистых баллов. Язык паскаль (Free Pascal Compiler 3.0.0). Надеюсь на вашу помощь!!!!
var
a, b: array [1..100000] of int64;
i, n, c, j: longint;
tratata, d: boolean;
begin
readln(n);
for i := 1 to n do
begin
read(a[i]);
if a[i] = 0 then tratata := true;
d := false;
for j := 1 to n do
if a[i] = b[j] then d := true;
if not d then begin
inc(c);
b[c] := a[i];
end;
end;
if tratata then writeln(c + 1)
else writeln(c);
end.