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 Пример вывода: Симметричны
Answers & Comments
Verified answer
//Pascal ABC.NET v3.1 сборка 1219Const
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
Пример вывода:
Симметричны