N = 110
K = 72
I = ?
N = 2^i
110 = 2^i
i = 7 бит (ближайшая степень после числа 110)
I = K * i
I = 72* 7 = 504 бит = 504/8 байт = 63 байта
ответ: б.
Uses crt;
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln('Введите размер массива');
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i],' ');
Sr:=sr+m[i];
End;
Writeln;
Writeln(' Сред. Арф. = ',sr div n);
Readkey;
End.
Если М это переменная,хранящая номер максимального элемента, то фрагмент программы получится следующий
Ваше условие(if X[k]>X[M] then )
M = k
Пояснение:
если X[k](текущий) больше, чем Х[M](максимального элемента) то
М = к: присвоить М значение К, т.е. назначить Х[k] максимальным.