Массивы (интересно), давайте подумаем вместе Опции

[vovsik]

Вот задачка: даны два неубывающих массива целых чисел (размерностями k и l). Найти число различных элементов среди них. И вот в чем весь прикол: ЧИСЛО ДЕЙСТВИЙ - ПОРЯДКА СУММЫ РАЗМЕРНОСТЕЙ ЭТИХ МАССИВОВ (K+L)

[BlackShadow]

Код

Type
 TArray=Array[Integer] Of Boolean;

Var
 i,n:Integer;
 Present:^Taray;

Const
 k=...;
 l=...;
 m1:Array[1..k] Of Integer = (...);
 m2:Array[1..l] Of Integer = (...);

Begin
 New(Present);
 For i:=-32768 To 32767 Do
   Present^[i]:=False;
 For i:=1 To k Do
   Present[m1[i]]:=True;
 For i:=1 To l Do
   Present[m2[i]]:=True;
 n:=0;
 For i:=-32768 To 32767 Do
   If Present^[i] Then
     Inc(n);
 WriteLn(n);
 Dispose(Present)
End.

Сложность реализации оценивается как O(k+l).

kile, а что такое "лол"?