Дистанционная подготовка: Почему не работает программа
Почему не работает программа
от Алмаз Ханнанов - Вторник 2 Апрель 2019, 11:02
4. Двоичный поиск
  var arr1: array of int64;
var arr2: array of int64;
var a,b,i:int64;
begin
read(a,b);
arr1:= new int64[a];
arr2:= new int64[b];
for i:=0 to arr1.Length-1 do begin
    read(arr1[i]);
  end;
for i:=0 to arr2.Length-1 do begin
    read(arr2[i]);
  end;
for i:=0  to arr2.Length-1 do begin
    if (arr1.IndexOf(arr2[i]) <>  -1) then writeln('YES')
    else writeln('NO')
  end;
end.