Pascal. Задача 4-4

Проверить, является ли введенный массив симметричным (первый элемент равен последнему, второй - предпоследнему и т.д.).

Примечание: При решении подобных задач, подразумевающих два варианта ответа, удобно пользоваться переменной логического типа. Переменной присваивается начальное значение, а в процессе проверки значение может поменяться. Такая переменная в программирование называется флагом (флаг поднят, флаг опущен).

Решение

Const
  N = 10;
var
  i: integer;
  sym : boolean;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']: ');
      read(A[i]);
    end;
  sym := true;
  for i := 1 to N div 2 do begin
      if A[i] <> A[11 - i] then begin
        sym := false;
        break; // Проверка следующих пар не нужна
      end;
    end;
  if sym then writeln('Массив симметричный')
  else writeln('Массив не симметричный');
end.