Const
n = 20;
var
a: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(19999) - 9999;
Write(a[i]:6);
end;
Writeln;
i := 1;
flag := False;
repeat
flag := (sign(a[i]) = sign(a[i + 1]));
i := i + 1
until flag or (i > n);
if flag then Writeln('Есть пара соседних элементов с одним знаком')
else Writeln('Нет пар соседних элементов с одним знаком')
end.
<u>Тестовое решение:</u>
Элементы массива
2440 -2414 -3192 -6912 -8537 7364 2869 -2505 8875 2662 401 7398 2213 8804 2039 1485 4213 8359 -2410 -5844
Есть пара соседних элементов с одним знаком
Рабочий стол)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Число 8888 в системе по основанию p - это то же самое, что
Ответом будет последовательность выписываемых чисел
Что в системе с основанием 2p записывается как 1248.
Ответ: 1248.
Пусть задан некий алфавит (в данном случае это множество оценок 1,2,3,4,5) и есть вероятность p_i выпадения символа i этого алфавита, тогда справедлива формула Шеннона, о том, что некое сообщение будет иметь объем информации равный I:
Пусть вероятность получения пятерки равна p. P = N/100 (число пятерок на число оценок). Нам известно, что сообщении о одной пятерке имеет объем 2 бита, применяем формулу:
ответ 25 пятерок