Var a:array [1..100] of integer;
s,i,k,n:integer;
sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
k:=0;
for i := 1 to n do
begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
<span>end.</span>
<span>Наполним пятилитровую банку и перельем в трехлитровую, у нас останется 2 литра, выливаем их в ведро, потом перельем обратно 3 литра в пятилитровую и наполним ее доверху ну и опять перельем в трехлитровую, у нас опять останется 2 литра их выливаем в ведро. В ведре получилось 4 литра воды</span>
1. 16, 256, 2^16, 2^24, 2^32
3. 256 цветов, следовательно 8 бит глубина цвета. 120*8 бит/ 8 бит =120 точек
4. 256*1024*8 (объем памяти в битах)> 4(глубина цвета при палитре в 16 цветов)*640*180 Значит объема памяти достаточно
2 в 4 раза, так как 65536 это 16 степень числа 2, а 16 - - четвертая, следовательно 16/4=4
256000 бит/с = 32000 байт/с = 31.25 кбайт/c
<span>375 / 31.25 = 12 секунд </span>
94,7=96972,2 байт
<span>99 401 728= 97072 кбайта
</span>5,52=5652,48 кбайта= 5788139,52 байт