pascal 怎么输入二维字符数组

pascal 怎么输入二维字符数组

这样就可以：
var a:array[1..20,1..20] of char;
for i:=1 to n do
begin for j:=1 to m do read(a[i,j]);
readln;
end;追问每个字母之间有一个空格间隔。有空格怎么办啊
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
if j<>m then
read(c);
end;
readln;
end;
这样可以，是这样吗？有没有更好的办法追答你没有说清楚输入数据的格式。
以上的程序输入时字符间不要有空格。
如果输入时是一个字符，一个空格这样的格式（一行上最后一个字符后面有没有空格也是要说清楚的），那么请试一下下面的程序：（你写的程序应该可以了）
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m-1 do
read(a[i,j],c);
readln(a[i,m]);
end;

var i,j:longint;
      a:array[1..20,1..20] of char;
  for i:=1 to n do
  begin
    for j:=1 to m do
      read(a[i,j]);
    readln;
  end;

你没读空行。。。。

read字符的时候要注意把回车符过滤掉

可以这样：

var
a:array[1..20,1..20] of char;
n,m,i,j:longint;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do read(a[i][j]);
readln;
end;
end.