1) 4)
PS
3 не понял, то программные архиваторы, то программное архивирование.
26. Так как до выполнения цикла значение A [2,3] = 5, то подставляем это число в цикл.
I = 2.
J = 3.
A [i,j] = 5+2*(2+3) = 5 + 2*5 = 15.
Ответ: Б.
27. Данная программа вычисляет количество положительных элементов массива.
Приведем в пример произвольный массив: [4, -7, 10].
Выполним программу.
X {1} > 0
Да
K = 1.
X {2} > 0
Нет
X {3} > 0
Да
K = 2.
Итого: 2 положительных элементов массива, значит программа вычисляет количество положительных элементов массива.
Ответ: Г.
28.
Цикл выполняется до тех пор, пока b >= a.
A = 12.
B = 46.
1. B = b - a = 46 - 12 = 34.
2. B = b - a = 34 - 12 = 21.
3. B = b - a = 21 - 12 = 9.
В итоге тело цикла выполняется 3 раза.
Ответ: 3.
ЮМА_ЮМ - 6 символов - это количество в сообщении
4 разных символа в алфавите - это N
N=2^i => i=2 бита
I = K*i => 6*2 = 12 бит
ответ: информационное сообщение 12 бит
Дано: I = 1,5 Кб, К = 3072 символа. Найти: N — ? Решение. I= 1,5 Кб = 1,5 • 1024 • 8 = 12 288 бит. I I = I/K = 12288/3072 = 4 бита N=2i = 24 =16 символов
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
Println('Результат:', (a.Max + a.Min) / 2)
end.
===== Turbo Pascal =====
program abcd;
uses Crt;
const
nn = 100;
var
i, n, max, min: integer;
a: array[1..nn] of integer;
begin
ClrScr;
Write('n = ');
Readln(n);
Randomize;
max := -32768;
min := 32767;
for i := 1 to n do
begin
a[i] := Random(199) - 99;
Write(a[i], ' ');
if a[i] > max then
max := a[i]
else if a[i] < min then
min := a[i]
end;
Writeln;
Writeln('Результат: ', (max + min) / 2);
ReadKey
end.