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

[Евгений]

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

[volvo]

Ну, а если подумать?

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