У меня есть программа, которая читает массив букв (это может быть любой текст). Затем мне нужно сравнить 1-й и 4-й элементы каждой строки кода, но программа не позволяет мне это делать. Как я могу получить доступ к этим элементам, чтобы их сравнить?Как получить доступ к элементу в строке, находящейся в массиве в Pascal?
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])
Удалить лишние функции 'Ord' - просто сравните', если буквы [i] [1] = буквы [i] [4] '. – MBo
Имейте в виду, что readln (n) возвращает исключение, когда вход не является целым числом. –