Сравнение массивов Опции

[Евгений]

Как сравнить два одномерных равных массива?

[Altair]

Как сравнить два одномерных равных массива?

Наверно ты имел ввиду что они равны по длине.
ВОт так.
есть 2 массива:

var
 a,b:array[1..100] of integer;
 count:integer;{текущая длинна массива}

тогда для сравнения, мы прохожим оба масива, сравнивая каждый элемент.

{....}
 I:integer;
 b:boolean; {признак равности}
begin
 {...}
 b:=true;
 for i:=1 to Count do if a[i]<>b[i] then b:=false;
 {теперь B хранит TRUE если массивы равны и наоборот}
end.

[Евгений]

Спасибо. Но мне нужно проверить совпадение элементов массивов, и, если совпадают, то вывести совпадающее значение, а если нет, то вывести сообщение.