Question

请帮助翻译FREE PASCAL语言

请帮助翻译FREE PASCAL语言
var
m,n,i,t:longint;
f,a,s:array[0..10000]of longint;
begin
readln(n,m);
fillchar(f,sizeof(f),0);
s[0]:=0;
for i:=1 to n do
begin
read(a[i]);
s[i]:=(s[i-1]+a[i]) mod m;
t:=s[i];
inc(f[t]);
end;

Answer 1

var //可以无视
m,n,i,t:longint; //定义变量为整型
f,a,s:array[0..10000]of longint; //定义一维数组为整型
begin
readln(n,m); //读入
fillchar(f,sizeof(f),0); //数组f清零
s[0]:=0; //把数组s中的第零个赋值为0
for i:=1 to n do //从1到n循环
begin
read(a[i]); //读入数组a中的元素
s[i]:=(s[i-1]+a[i]) mod m; //把s[i]赋值为(s[i]+a[i])除以m的余数
t:=s[i];//把t赋值为s[i]
inc(f[t]); //把f[t]加1再赋给f[t]
end;

不过最后还少一个end. 也没有输出

追问

这是zju1569的题目，能不能帮我打完，顺便解释一下

Answer 2

var //可以无视
m,n,i,t:longint; //定义变量为整型
f,a,s:array[0..10000]of longint; //定义一维数组为整型
begin
readln(n,m); //读入
fillchar(f,sizeof(f),0); //数组f清零
s[0]:=0; //把数组s中的第零个赋值为0
for i:=1 to n do //从1到n循环
begin
read(a[i]); //读入数组a中的元素
s[i]:=(s[i-1]+a[i]) mod m; //把s[i]赋值为(s[i]+a[i])除以m的余数
t:=s[i];//把t赋值为s[i]
inc(f[t]); //把f[t]加1再赋给f[t]
end;

Answer 3

没写完啊~~最后的"end”哪去啦

追问

知道，主要是程序语句的意思和作用不懂

追答

那你要输出什么？

Answer 4

我靠，你这连输出都木有还问，鬼知道你这是干什么的