Сравнение двух массивов(Pascal)

[Bounty Hunter]

Даны два одномерных массива.Элементами массивов являются слова.Нужно удостовериться что во 2 массиве присутствуют все элементы первого массива.

[whatever]

Двойной цикл for, в первом берется одно слово из первого, во втором сверяется со всеми словами во втором. Ну и булевская переменная например, для результата. В чем проблема то?

[McFrey]

думаю если массивы равны по количеству элементов можно и одним циклом обойтись...вот например

var
  a,b: array [1..5] of single;
  eq: Boolean;
  i: byte;
begin
  
  eq := true;
  for i := 1 to 5 do
    if a[i] <> b[i] then
      eq := false;
    if eq=false then ...    
end.

P.S. кстати, Bounty Hunter, это уже фактически решение твоей задачи

[whatever]

Сообщение от McFrey

думаю если массивы равны по количеству элементов можно и одним циклом обойтись...вот например

var
  a,b: array [1..5] of single;
  eq: Boolean;
  i: byte;
begin
  
  eq := true;
  for i := 1 to 5 do
    if a[i] <> b[i] then
      eq := false;
    if eq=false then ...    
end.

P.S. кстати, Bounty Hunter, это уже фактически решение твоей задачи

А если a[1]=b[2] и a[2]=b[1] например? Тогда eq будет false, хотя надо true.

[McFrey]

эммм....согласен,мой косяк