Вколоде содержится 32 карты. из нее наугад взяли 2 карты. какое количество информации несет сообщение о том, что выбраны туз и король одной масти?

1 бит - что такой масти выбраны карты. +5 битов на каждую карту = 11 битов 

s = 0

k = 0: x = -10+3*0 = -10; x>0 - нет

k = 1: x = -10+3*1 = -7; x>0 - нет

k = 2: x = -10+3*2 = -4; x>0 - нет

k = 3: x = -10+3*3 = -1; x>0 - нет

k = 4: x = -10+3*4 = 2; x>0 - да; s = 0+2 = 2

k = 5: x = -10+3*5 = 5; x>0 - да; s = 2+5 = 7

k = 6: x = -10+3*6 = 8; x>0 - да; s = 7+8 = 15

k = 7: x = -10+3*7 = 11; x>0 - да; s = 15+11 = 26

k = 8: x = -10+3*8 = 14; x>0 - да; s = 26+14 = 40

k = 9: x = -10+3*9 = 17; x>0 - да; s = 40+17 = 57

k = 10: x = -10+3*10 = 20; x>0 - да; s = 57+20 = 77

На экран будут выводиться значения: -10  -7  -4  -1   2   5   8  11  14  17  20

После 20 выведется значение s = 77. Т.е подряд, без пробелов, будут выведены числа 20 и 77.

Значение s = 77.

var

  a: array [1..16] of integer;  //Массив из 16 целых чисел

  i: integer;

 

begin

  randomize;  

  write('Исходный массив:  ');

  for i:= 1 to 16 do  {Заполняем массив случайными целыми числами от -20 до 20 и распечатываем его}

  begin

    a[i]:= random(40) - 20;

    write(a[i], '  ');

  end;

  writeln;

  write('Элементы с нулевыми значениями:  ');

  for i:= 1 to 16 do  {Распечатываем элементы с нулевыми значениями через точку с запятой}

    if a[i] = 0 then write('a[', i, '] = ', a[i], '; ');

  writeln;

end.

Если все правильно, отметь решение как лучшее)