Help.............составьте программу........
Help.............составьте программу........
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array[1..8] of integer;
i:integer;
b:boolean;
begin
b:=true;
for i:=1 to 8 do
read(a[i]);
for i:=1 to 4 do
if a[i]<>a[4-i+1] then b:=false;
if b then writeln('YES')
else writeln('NO');
end.
Не нашли ответ?
Похожие вопросы