Всё правильно кроме 4,7,9
4)В
7)В
9)В
Const
N = 5;
Var
B:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('B(',N,'):');
For i := 1 to N do
Begin
B[i]:=random(21)-10;
Write(' ',B[i]);
S:=S+B[i];
End;
WriteLn;
WriteLn('S = ',S);
End.
Вероятная система каталога:
D:\\
-Информатика\
--Контрольная.txt
-Млекопитающие\
--хищники\
.
Ход такой, исходный путь:
<span>D:\\
-Млекопитающие\
--хищники\
.
Поднялся на 2 уровня вверх, то-есть перешол в корень каталога(</span>D:\\ ), после чего перешол в папку (-Информатика\ ), потом находим файл (--Контрольная.txt).
У 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.