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

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

Информатика

Глебыч

31 марта, 13:04

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

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;

+3

Ответы (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.