Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив A(',N,'):');
For i:= 1 to N do
Begin
A[i]:=random*(N*2+1)-N;
Write(' ',A[i]:0:3);
S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.
Если рассматривать вариант, когда в буфере минимально возможным числом бит кодируется вся комбинация показаний, то решение во вложении, если "сжимается" каждое показание отдельно то так.
Показания датчика в диапазоне от A до B c шагом h. Могут принимать M значений.
В нашем случае:
Чтобы закодировать 13 комбинаций нам потребуется минимум
бит, округляя до ближайшего большего целого получим 4 бита. (Это половина байта. в байте 8 бит, если что :)
Если буфер хранит N показаний. то для этого в сжатом варианте потребуется N/2 байт, в несжатом варианте N байт.
Исходя из условия получаем:
Разрешаем относительно N
Ответ: 20 показаний (или 20 байт).
...........................................................
Так как среднее значение 3 чисел (СРЗНАЧ(A1:A3)) равно 3, то сумма значений в этих же ячейках = 3*3=9
Значит значение ячейки A4 = 10-9 = 1
Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.