Ученик за контрольную работу может получить одну из четырёх оценок ( 2, 3, 4 или 5 какое количество информации получил петя, узнав, что написал работу на два?

Ответ  8 бит либо 2 байта

Program jnrvjf; vara: array[0..20] of integer; x, b, i, d, c: integer; begin      writeln('введите число элементов в массиве');       readln(d);       writeln('введите число'); ;       readln(x);       b: =0;       for i: = 1 to d do              a[i] : = random (20);       writeln(a);       for i: = 1 to d do      begin              c: = a[i];               if (c > b) then                      b: =a[i]      end;       writeln('максимальное значение в множестве: ', b);       for i: =0 to d do       begin              b: =a[i];               if b = x then                      writeln ('номера элементов, с x: ', i)// это если вести человеческую нумерацию, где первый элемент имеет номер 1.      end; end.

Program llllll; var a: array [0..10] of integer; n, i, b : integer; begin       writeln('введите количество чисел');       readln(n);       b: =0;       for i : = 1 to n do               a[i] : = random(10);       b: =0;       for i : = 1 to n do       begin               if a[i] mod 2 = 0 then                       b: =b+a[i];       end;       writeln('это сумма ' , b);       writeln(a); end.