ВЫПОЛНИТЕ 1)Программисту было поручено написать программу нахождения суммы отрицательных элементов одномерного массива. Программист разработал
программу, но допустил в ней одну ошибку. Текст программы с ошибкой
представлен ниже:
program n1;
var
k, s: integer;
a: array [1..8] of integer;
begin
for k := 1 to 8 do readln(a[k]);
s := 0;
for k := 1 to 8 do
if a[k] < 0 then s := s + a[1];
writeln(s);
end.
1) Каким окажется ответ после исполнения этой программы, если в качестве
элементов массива будут введены числа 1, 2, 3, 4, -1, -2, -3, -4?

Задание 1

Исходя из того, что равновероятных событий может быть 24 - количество часов в сутках

Можно использовать формулу:

N = 2^i

Вместо N подставим количестов возможных равновероятных событий:

24 = 2^i

Ближайшая степень, в которую нужно возвести 2, чтобы получилось 24 - это 5

Значит:

i = 5 бит

ответ 5 бит информации несет сообщение о том, что встреча назначена на 11 часов

Задание 2

В 16 системе счисления каждая цифра несет 4 бита информации, тк

N = 2^i

16 = 2^i

i = 4 бит

Задание 3

Для вычисления количества информации в сообщении о неравновероятном событии используют следующую формулу: I=log(2)(1/p) (логарифм по основанию 2)

I - это количество информации, р - вероятность события

Для буквы О формула примет следующий вид, тк р=0,09:

I = log(2)(1/0,09) = log(2)11,11 = 3,5 бит

Для буквы С формула примет следующий вид, тк р=0,045:

I = log(2)(1/0,045) = log(2)22,22 = 4,5 бит

Для буквы М формула примет следующий вид, тк р=0,026:

I = log(2)(1/0,026) = log(2)38,46 = 5,2 бит

Для буквы Х формула примет следующий вид, тк р=0,009:

I = log(2)(1/0,009) = log(2)111,11 = 6,8 бит

Если округлять то получится (округляем всегда в большую сторону в информатике):

4 бит для буквы О

5 бит для буквы С

6 бит для буквы М

7 бит для буквы Х

Program Evg97;
uses crt;
var
  a,b,c:real;
begin
  writeln('++');
  writeln('|               ПОРІВНЯЛКА               |');
  writeln('++');
  write('Введіть число a: '); readln(a);
  write('Введите число b: '); readln(b);
  write('Введіть число c: '); readln(c);
  writeln();
  writeln('++');
  writeln('|               Результат:               |');
  writeln('++');
  if (a=b) or (a=c) or (b=c) then
      writeln('| Хмм...  Деякі (або всі) числа рівні... |')
    else
      if (a<b) and (b<c) then
          writeln('|     Число посередині: b=',b:8:3,'       |')
        else    
          if (a<c) and (c<b) then  
              writeln('|     Число посередині: c=',c:8:3,'       |')
            else
              writeln('|     Число посередині: a=',a:8:3,'       |');
  writeln('++');
end.