program znanija;
uses CRT;
Var n,k,sum,ch,nch: integer;
sa: real;
M: Array[1..25] of integer;
begin
write('Ведите N: ');readln(n);
for k:=1 to 25 do
begin
M[k]:=random(n);
sum:=sum+M[k];
if (M[k] mod 2 = 0) then
begin
ch:=ch+1;
end else
begin
nch:=nch+1;
end;
end;
sa:=sum/25;
Writeln('Среднее арихметическое - ',sa);
Writeln('Сумма чисел - ', sum);
Writeln('Количество чётных - ', ch);
Writeln('Количество не чётных - ', nch);
writeln('--Числа--');
for k:=1 to 25 do
begin
Write(m[k],', ');
end
end.
N=2^i, где i - количество бит на символ
i= I/n, где I- информационный объем текста, n - количество символов в тексте.
i=(15*1024*8)/16*30*32= 8 бит
N=2^i= 2^8= 256
ответ: 256 символов