Цитата:
Сообщение от oleum
правильно делаю?
|
Наверное. Уж извините, но делать за вас черновую работу по тестированию и отладке программы я лично не буду. Замечу только, что, во-первых, все эти
goto и
label - дурной тон, лучше обходиться без них, а во-вторых, я бы вместо
Код:
x[0]:= 1; x[1]:= 2; x[2]:= 3; x[3]:= 4; x[4]:= 5; x[5]:= 6; x[6]:= 7; x[7]:= 8; x[8]:= 9; x[9]:=10;
x[10]:=11; x[11]:=12; x[12]:=13; x[13]:=14; x[14]:=15; x[15]:=16; x[16]:=17; x[17]:=18; x[18]:=19; x[19]:=20;
написал бы просто
Код:
for i:=0 to 19 do x[i]:=i+1;