Вариант для вывода элементов массива в 8 позициях:
begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Select(t->Format('{0,8}',t)).Println(''); a:=a.Reverse.ToArray; a.Select(t->Format('{0,8}',t)).Println('') end.
Для начала, переведем код в десятичную систему счисления.
110100102 = 21010
110011002 = 20410
110011112 = 20710
110100112 = 21110
Получаем: 210 204 207 211
Зная, что буква «А» кодируется как 192, а код каждой последующей буквы на 1 больше кода предыдущей буквы. Определим код остальных букв и расшифруем наше слово.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a.Reverse.ToArray; a.Println
end.
Пример
n= 13
1 80 -54 36 84 -43 -88 43 36 9 -14 -19 -38
-38 -19 -14 9 36 43 -88 -43 84 36 -54 80 1
Вариант для вывода элементов массива в 8 позициях:
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Select(t->Format('{0,8}',t)).Println('');
a:=a.Reverse.ToArray;
a.Select(t->Format('{0,8}',t)).Println('')
end.
Для начала, переведем код в десятичную систему счисления.
110100102 = 21010
110011002 = 20410
110011112 = 20710
110100112 = 21110
Получаем: 210 204 207 211
Зная, что буква «А» кодируется как 192, а код каждой последующей буквы на 1 больше кода предыдущей буквы. Определим код остальных букв и расшифруем наше слово.
А-192
Б-193
В-194
Г-195
Д-196
Е-197
Ё-198
Ж-199
З-200
И-201
Й-202
К-203
Л-204
М-205
Н-206
О-207
П-208
Р-209
С-210
Т-211
У-212
Ф-213
Х-214
Ц-215
Ч-216
Ш-217
Щ-218
Ъ-219
Ы-220
Ь-221
Э-222
Ю-223
Я-224
СЛОТ