我有一个读取字母数组的程序(可以是任何文本)。然后我需要比较每行代码的第一个和第四个元素,但是程序不允许我这样做。我怎样才能访问这些元素以便比较它们?
Program acmp387;
uses crt;
var
n, i, answer : integer;
letters : array[1..1000] of string;
Begin
read(n);
for i:=1 to n do
begin
read(letters[i]);
if ord(letters[i][1]) = ord(letters[i][4])
then answer := answer + 1;
end;
writeln(answer);
readkey;
End.
我对这条线感兴趣:
if ord(letters[i][1]) = ord(letters[i][4])