Выполним несколько первых шагов алгоритма:
2 "7", 82 "4"
4 "7", 78 "4"
Очевидно, что из 86 "4" получим в конце концов 42 "7" и 2 "4"
(42=84/4*2).
Следующий этап:
2 "4", 38 "7", 2 "4"
4 "4", 34 "7", 2 "4"
36 "7", 2 "4"
...
30 "7", 2 "4"
...
6 "7", 2 "4"
2 "4", 2 "7", 2 "4"
Таким образом, из 86 "4" получится строка "447744"
var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
Ответ: k будет равно 5.
По условию, если а>0, то k присвоить значение 1, иначе присвоить значение 0, а затем прибавить 5. Перед условием указано, что а=-25, т.е. <0, значит идём по условию "иначе".
program n_1;
const n=7;
var i, m: integer; a:array [1..n] of real;
begin
m:=1;
for i:=1 to n do begin
read(a[i]);
if a[i]>a[m] then m:=i;
end;
writeln('Наибольший элемент массива из 7 чисел находится под номером ', m, ' и равен ', a[m]:0:10);
end.
По формуле 
или 
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес
I = K * i (K - кол-во пикселей, i - Глубина цвета)
Отношение объемов информации 
раз
