编程问题PASCAL语言

发布网友 发布时间：2024-10-23 20:41

我来回答

共1个回答

热心网友 时间：2天前

program program4; //程序名称
var c: array[1..3] of string[200]; //字符数组
s: array[1..10] of integer; //整形数组
m, n, i: integer; //整形变量
procedure numara; //过程
var cod: boolean; //布尔类型变量
i, j, nr: integer; //整形变量
begin //过程开始
for j := 1 to n do begin //从1到n循环
nr := 0; cod := true; //初始值设定
for i := 1 to m do //从1到m循环
if c[i, j] = '1' then begin //如果数组c[i,j]的元素为‘1’则执行
if not cod then begin
cod := true; inc(s[nr]); nr := 0;
end
end
else begin//否则执行这里
if cod then begin
nr := 1; cod := false;
end
else inc(nr); 两个都不是则nr加一
end;
if not cod then inc(s[nr]);
end;
end;
begin
readln(m, n); //将n读入m
for i := 1 to m do readln(c[i]);//循环读取c数组
numara;
for i := 1 to m do
if s[i] <> 0 then write(i, ' ', s[i], ' ');
//判断如果s[i]不等于零就写入；
end.