Question

Определить симметричны ли элементы в массиве (одномерном) относительно центрального или центральных?

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Const
  n=5;

 Var
 ar:array[1..n] of integer;
 i:integer;
 b:boolean;
begin
 b:=true;
 writeln('Array:');
 for i:=1 to n do readln(ar[i]);
 for i:=1 to n div 2 do
 if ar[i]<>ar[n-i+1] then b:=false;
 if b=true then writeln('Симметричны') else writeln('Не симметричны');
end.

Пример ввода:
1
2
3
2
1
Пример вывода:
Симметричны