Question

Program shifer;
var z,v,a,b,m,s,j,x:integer;
k:array[1..100] of char;
n:array[1..100] of char;
begin
n[1]:=а;
n[2]:=б;
n[3]:=в;
n[4]:=г;
n[5]:=д;
n[6]:=е;
n[7]:=ё;
n[8]:=ж;
n[9]:=з;
n[10]:=и;
n[11]:=й;
n[12]:=к;
n[13]:=л;
n[14]:=м;
n[15]:=н;
n[16]:=о;
n[17]:=п;
n[18]:=р;
n[19]:=с;
n[20]:=т;
n[21]:=у;
n[22]:=ф;
n[23]:=х;
n[24]:=ц;
n[25]:=ч;
n[26]:=ш;
n[27]:=щ;
n[28]:=ъ;
n[29]:=ы;
n[30]:=ь;
n[31]:=э;
n[32]:=ю;
n[33]:=я;
n[34]:=а;
n[35]:=б;
n[36]:=в;
readln(a);
for m:=1 to a do
readln(b);
for j:=1 to 33 do
x:=0;
if (b=n[1+x])then
v:=n[1+x+3];
z:=0;
k[1+z]:=v;
z:=z+1; else
x:=x+1;
end;
end;
writeln(k);
end.
где ошибка?

Answer 1

У if'ов небыло begin и end;
у значений массива n небыли проставленны ' ' одинарные кавычки для букв.
у b и v в условиях не те типы данных, поэтому немогут они внутрь себя вместить букву, а только цифры, исправил с integer на char.
не знаю что должна выводить программка, begin и end'ов нету и у циклов. Без begin и end'ов трудно мне просчитать что выведет программа.

Program shifer;var z,a,m,s,j,x:integer;b,v:char;k:array[1..100] of char;n:array[1..100] of char;BEGINn[1]:='а';n[2]:='б';n[3]:='в';n[4]:='г';n[5]:='д';n[6]:='е';n[7]:='ё';n[8]:='ж';n[9]:='з';n[10]:='и';n[11]:='й';n[12]:='к';n[13]:='л';n[14]:='м';n[15]:='н';n[16]:='о';n[17]:='п';n[18]:='р';n[19]:='с';n[20]:='т';n[21]:='у';n[22]:='ф';n[23]:='х';n[24]:='ц';n[25]:='ч';n[26]:='ш';n[27]:='щ';n[28]:='ъ';n[29]:='ы';n[30]:='ь';n[31]:='э';n[32]:='ю';n[33]:='я';n[34]:='а';n[35]:='б';n[36]:='в';readln(a);for m:=1 to a do  readln(b);  for j:=1 to 33 do     x:=0;    if b=n[1+x] then      begin        v:=n[1+x+3];        z:=0;        k[1+z]:=v;        z:=z+1;      end    else      begin        x:=x+1;      end;  writeln(k);END.