Const N = 10;
var i, max: integer;
a: array[1..N] of integer;
begin
max := 1;
writeln('Массив до: ');
for i := 1 to N do begin
a[i] := random(10);
write(a[i]:3);
if(a[i] > a[max]) then max := i;
end;
writeln(#10, 'Массив после: ');
for i := 1 to N do begin
if(a[i] > 1) and (a[i] < 4) then a[i] := a[max];
write(a[i]:3);
end;
writeln(#10, 'Максиммальный элемент: ', a[max], #10, 'Его индекс: ', max);
end.
Судя по программе алгоритм линейный
Ответ:
1110011010
Объяснение:
Решается деление на 2. Остаток и является ответом.
№ 1.
2^i = N, N = 64
2^i = 64
i = 6 бит
1280 * 6 = 7680 бит
7680 : 8 = 960 байт
№ 2.
38912 бит : 8 = 4864 байт
4864 : 1024 = 4,75 Кбайт
№ 3.
3КБайт = 3 * 1024 = 3072 байт
3072 * 8 = 24576
24576 : 6144 = 4 бит приходится на 1 символ
2^4 = 16 символов содержит алфавит
№ 4.
2^i = 8
i = 3 бит приходится на 1 символ
10 * 40 * 5 * 3 = 6000 бит
6000 : 8 = 750байт