Результат отработки алгоритма:
A=2
B=2
C=9
D=3
1)
Л -> b
е -> a
ш -> c
a -> не определена
2) Е - здесь pred - предыдущий символ, succ - последующий символ
3) 67 - здесь код латинской заглавной буквы F равен 70, поэтому:
pred(70-2) = pred (68) = 67
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ArrRandom(15,-50,50); x.Println;
var (sn,sp):=(0,0);
foreach var m in x do
if m>0 then sp+=m else sn+=m;
Writeln('Разница между суммой положительных и отрицательных ',sp-sn)
end.
<u>Пример</u>
38 -31 -30 50 -12 -27 -2 24 -20 29 46 24 6 32 -2
Разница между суммой положительных и отрицательных 373
Во вложении видно, что х - именно массив (array of integer)
73+(37-12)*15=73+ 25*15=73+375=448