Значения элементов массива станут равны их индексам.
Объяснение:
Заполнение массива:
для i от 0 до 9 выполнить a[i] = 9 - i
i = 0 a[0] = 9 - 0 = 9
i = 1 a[1] = 9 - 1 = 8
i = 2 a[2] = 9 - 2 = 7
i = 3 a[3] = 9 - 3 = 6
i = 4 a[4] = 9 - 4 = 5
i = 5 a[5] = 9 - 5 = 4
i = 6 a[6] = 9 - 6 = 3
i = 7 a[7] = 9 - 7 = 2
i = 8 a[8] = 9 - 8 = 1
i = 9 a[9] = 9 - 9 = 0
Изменение массива:
для i от 0 до 4 выполнить
Действия в цикле:
1) k = a[i]
2) a[i] = a[9 - i] (значение элемента a[9 - i] смотрим выше)
3) a[9 - i] = k
i = 0
Действия в цикле:
1) k = a[0] = 9
2) a[0] = a[9 - 0] a[0] = a[9] a[0] = 0
3) a[9 - 0] = k a[9] = k a[9] = 9
i = 1
Действия в цикле:
1) k = a[1] = 8
2) a[1] = a[9 - 1] a[1] = a[8] a[1] = 1
3) a[9 - 1] = k a[8] = k a[8] = 8
i = 2
Действия в цикле:
1) k = a[2] = 7
2) a[2] = a[9 - 2] a[2] = a[7] a[2] = 2
3) a[9 - 2] = k a[7] = k a[7] = 7
i = 3
Действия в цикле:
1) k = a[3] = 6
2) a[3] = a[9 - 3] a[3] = a[6] a[3] = 3
3) a[9 - 3] = k a[6] = k a[6] = 6
i = 4
Действия в цикле:
1) k = a[4] = 5
2) a[4] = a[9 - 4] a[4] = a[5] a[4] = 4
3) a[9 - 4] = k a[5] = k a[5] = 5
var
s:string;
l:boolean;
i,n :integer;
begin
writeln ('vvedite stroku');
readln (s);
n:=length(s)div 2;
for i:=1 to n do
begin
if s[i]=s[n+1]
then l:=true
else l:=false
end;
if l=true
then writeln ('yes')
else writeln ('no');
end.