Question

Runtime Error:Segmentation fault

pascal里
var
a:array[1..50]of integer;
i,j,ls,mask,n,s:longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
for j:=n-1 downto 1 do begin
mask:=0;
for i:=1 to j do begin
if a[i]>a[i+1] then
begin
ls:=a[i+1] ;
a[i+1]:=a[i];
a[i]:=ls;
mask:=1;inc(s);
end;
end;
if mask=0 then break;
end;
write(s);
end.

问题 A: 车厢重组（carry.pas)
时间限制: 1 Sec 内存限制: 128 MB
提交: 50 解决: 12
[提交][状态][讨论版]
题目描述
在一个旧式的火车站旁边有一座桥，其桥面可以绕河中心的桥墩水平旋转。一个车站的职工发现桥的长度最多能容纳两节车厢，如果将桥旋转180度，则可以把相邻两节车厢的位置交换，用这种方法可以重新排列车厢的顺序。于是他就负责用这座桥将进站的车厢按车厢号从小到大排列。他退休后，火车站决定将这一工作自动化，其中一项重要的工作是编一个程序，输入初始的车厢顺序，计算最少用多少步就能将车厢排序。
输入
输入文件有两行数据，第一行是车厢总数N（不大于100000），第二行是N个不同的数表示初始的车厢顺序。
输出
一个数据，是最少的旋转次数
样例输入
4
4 3 2 1
样例输出
6

在评测系统里显示Runtime Error:Segmentation fault
Runtime Error:Segmentation fault
Runtime Error:Segmentation fault
Runtime Error:Segmentation fault
Runtime Error:Segmentation fault
Runtime Error:Segmentation fault
Runtime Error:Segmentation fault
Runtime Error:Segmentation fault

辅助解释：
Segmentation fault:段错误，检查是否有数组越界，指针异常，访问到不应该访问的内存区域

求高手指教

Answer 1

关于 PASCAL 语言的编程，由于好久没有编写程序，现在已经忘记得差不多了。但是 C 语言里面的判断逻辑上的相等是两个 = 号。即：==。你的 if mask=0 是否应该使用： if mask == 0 ？ 表示逻辑上的相等？
另外，你再检查一下你的几个循环体内部的程序结构是否清晰？我个人感觉上你的几个循环体内部程序结构上不是很清晰。那就容易造成数组越界、或者内存越界的情况。因此会提示：Segmentation Fault。

Answer 2

有可能是因为你某些变量没赋初值。