Почему не работает программа по нахождению полиндрома через массив? Не понимаю?

const

n=5;

var

a: array[1 ... n] of char;

i, c: integer;

begin

for i:=1 to n do

read (a[i]);

readln;

c:=0;

for i:=1 to n div 2 do

if a[i]a[n-1-i] then c:=1;

if c=0 then writeln ('polindrom')

else writeln ('no');

readln;

Question

Информатика

Домника

18 февраля, 10:02

Почему не работает программа по нахождению полиндрома через массив? Не понимаю?

const

n=5;

var

a: array[1 ... n] of char;

i, c: integer;

begin

for i:=1 to n do

read (a[i]);

readln;

c:=0;

for i:=1 to n div 2 do

if a[i]a[n-1-i] then c:=1;

if c=0 then writeln ('polindrom')

else writeln ('no');

readln;

+2

Ответы (1)

Знаешь ответ?

Лилюся · Answer 1

Const

n = 5;

var

a: array[1 ... n] of char;

i: integer;

p: boolean;

begin

for i : = 1 to n do

read (a[i]);

p : = true;

for i : = 1 to n div 2 do

p : = p and (a[i] = a[n + 1 - i]);

writeln ('Polindrom: ', p);

end.