//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadArrInteger(10).Where(x->x>0).Sum());
end.
var n,i: integer; s: real;
begin
write('vvedite n=');
read(n);
s:=1;
for i:=1 to n do
s:=1+1/(1+i);
writeln(s);
readln;
end.
Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
По формуле 
или 
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес
I = K * i (K - кол-во пикселей, i - Глубина цвета)
Отношение объемов информации 
раз
Using namespace std;
int main()
{
float a, b, c,sr;
cout<<"Input three numbers";
cin>>a>>b>>c;
sr=(a+b+c)/3;
cout<<"Average = "<<sr;
return 0;
}
