1.
program MinElement;
var
X: array[1..30] of Integer;
i, min: integer;
begin
randomize;
for i := 1 to 30 do
X[i] := random(100);
min := X[1];
for i := 1 to 30 do
if X[i] < min then
min := X[i];
writeln('Минимальное число: ', min);
write('Все элементы:');
for i := 1 to 30 do
write(' ', X[i]);
readln;
end.
2.
program Summa;
var
X: array[1..20] of Integer;
i, sum: integer;
begin
randomize;
for i := 1 to 20 do
X[i] := random(100);
sum := 0;
for i := 1 to 20 do
sum := sum + X[i];
writeln('Сумма всех чисел: ', sum);
write('Все элементы:');
for i := 1 to 20 do
write(' ', X[i]);
readln;
end.
Всё правильно и проверено лично!
Начинай расшифровку всегда с конца. Так проще.
Сообщение в расшифрованном виде выглядит так: BFBAA
То есть встречаются буквы A - 2 раза
В - 2 раза
F - 1 раз
Для начала приведем все в 10 сис-му счисления
1) 1100(2) = 12(10)
2) 65(8) = 53(10)
Получаем 12 + 53 + х = 110
откуда х = 110 - 12 - 53 = 45
Переведем полученное значение в восьмеричную систему
45(10) = 55(8)
Ответ: 55
1234567890ЙЦУКЕНГШЩЗХЇФІВАПРОЛДЖЄЯЧСМИТЬБЮ.