לפניך הגדרות הבאות :
var tav array 1...100 of char
כתוב תווכנית שקולטת לכל אברי המערך שלהם מציין אנידקס זוגי ערכים , ומציב בכל אברי המערך שלהם מציין אנידקס איי זוגי את אתו הקודם מבחינת הערך העסקי , לערך העיבר הזוגי העוקב במערך
לדוגמא:אם נקלת הערך D לתא )TAV)2 אז בתא )TAV)1 יוצב הערך c
הפתרון של ביצוא קלת
procedor bitza
bigin
for i:=1 ro n-1
if odd(i
then tva := ord a]i+1
tva := tva -1
a (i):=chr tva