Program enot;
VAR p: array [1..7,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:= 1 to 7 do
for j:= 1 to 9
do p[i,j]:= random (61)-25;
for i:= 1 to 7 do
begin
for j:= 1 to 9 do
begin
if p[i,j]<0 then s:=s+p[i,j];
write(p[i,j]:5);
end;
writeln();
end;
writeln(s);
<span>end.</span>
Var a:array[1..50] of integerl;
sr:real;
kol,i:integer;
begin
for i:=1 to 50 do
readln(a[i]);
kol:=0;
sr:=0;
i:=5;
while i<=50 do
begin
sr:=sr+a[i];
kol:=kol+1;
i:=i+5;
end;
writeln(sr/kol);
end.
5kb = 5120 B = 40960bits
40960/8192=5 bit per symbol
2^5=32
Если это был былый шар, то он его достал из чёрных, так как в смеси были бы только чёрные, если это чёрный шарик, то он его достал из коробки белый, , так как в смеси были бы только белые.
<span>допустим первые три массива:
int a[10], b[10], c[10];
</span> int d[10] //четвертый массив
for (int i = 0; i < 0; ++i)
{
d[i] = a[i];
if(b[i]>d[i])
{
d[i] = b[i];
}
if ( c[i] > d[i])
{
d[i] = c[i];
}
<span>}</span>