Dãy số đối xứng:
Cho một dãy số nguyên dương gồm N phần tử (1<=N<=100). Dãy số được gọi là đối xứng nếu viết các số theo thứ tự ngược lại ta vẫn được một dãy như dãy số ban đầu.
VD: Dãy số ban đầu là dãy số đối xứng 3,6,1,2,1,6,3.
-Dữ liệu vào: file văn bản DAYSO.INP.
+Dòng đầu chứa số nguyên n.
+Dòng thứ hai chứa n số nguyên dương, các số cách nhau một dấu cách.
-Kết quả: ghi vào file DAYSO.OUT gồm một số duy nhất là 1 nếu là dãy số đối xứng hoặc 0 nếu là dãy số không đối xứng.
Giúp mình nhe, rất biết ơn ạ!
Const Li=’DAYSO.INP’;
Lo=’DAYSO.OUT’;
Var f,g: text;
A: array[1..100] of longint;
n,i,j: longint;
ok: boolean;
Begin
Assign(f,Li); Reset(f);
Assign(g,Lo); Rewrite(g);
Readln(f,n);
For i:=1 to n do
Read(f,A[i]);
Ok:=true;
For i:=1 to n div 2 do
If A[i]<>A[n-i+1] then
Begin
Ok:=false ;
Break;
End;
If Ok=true then Write(g,’1′)
Else
Write(g,’0′);
Close(f);
Close(g);
End.
uses crt;
var n,i : integer;
kt : boolean;
a : array[1..100] of integer;
begin clrscr;
assign(input,’DAYSO.INP’);
assign(output,’DAYSO.OUT’);
reset(input); rewrite(output);
readln(input,n);
for i:=1 to n do read(input,a[i]);
for i:=1 to n do if a[i] <> a[n+1-i] then kt:=false else kt:=true;
if kt=true then write(input,1) else write(output,0);
close(input); close(output);
readln
end.