1. определите, сколько элементов массива a равны заданному значению x. 2. вычислить произведение всех элементов массива a, которые делятся на 3. 3. определите в массиве a номер первого элемента, равного x.

Const
K = 13;
Var
A:array[1..K] of integer;
i,n,X:integer;

Begin
Write('X = ');ReadLn(X);
Write('Исходный массив: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;

n:=0;
For i:= 1 to K do
    if A[i]=X then n:=n+1;
WriteLn;
WriteLn(n,' - кол-во элементов, равных ',X);
End.

Const
K = 13;
Var
A:array[1..K] of integer;
i:integer;
P:real;

Begin
P:=1;
Write('Исходный массив: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    if A[i] mod 3 = 0 then P:=P*A[i]
    End;
WriteLn;
WriteLn('Произведение элементов,кратных трём: ',P)
End.

Const
K = 13;
Var
A:array[1..K] of integer;
i,X:integer;
Begin
Write('X = ');ReadLn(X);
Write('А: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
i:=0;
Repeat
i:=i+1;
Until (A[i]=X)or(i=K);
if A[i]=X then WriteLn(i)
else WriteLn('Таких элементов нет')
End.

Единицы измерения информации 
В 1 бит можно записать один двоичный символ.
1 байт = 8 бит
В кодировке ASCII в один байт можно записать один 256 символьный код
В кодировке UNICODE один 256 символьный код занимает в памяти два байта
1 килобайт = 1024 байт
1 мегабайт = 1024 килобайт
1 гигабайт = 1024 мегабайт
1 терабайт = 1024 гигабайтФормула Хартли 2 i = N где i- количество информации в битах, N - неопределенностьТаблица степеней двойки, которая показывает сколько информации можно закодировать с бит i012345678910N=2 i12481632641282565121024Чтобы вычислить информационный объем сообщения надо количество символов умножить на число бит, которое требуется для хранения одного символа

Например: двоичный текст 01010111 занимает в памяти 8 бит 
Этот же текст в кодировке ASCII занимает 8 байт или 64 бита 
Этот же текст в кодировке UNICODE занимает 16 байт или 128 бит. 

10₄=4₁₀=2²₁₀, тогда в первой скобке 2³ возводится в 301 степень, т.е. получается 2⁹⁰³
100₂=4₁₀=2²₁₀ и при возведении в степень получим 2¹²⁰⁰⁰
8₁₀=2³₁₀ и при возведении в степень 229 получим 2⁶⁸⁷
13₁₀=1101₂
Если рассматривать первые три слагаемых как запись некоторого двоичного числа в развернутой форме, то она будет означать , что в этой записи единицы стоят на  месте с разрядами 12000, 903 и 687, а все остальные нули. Теперь если выполнить вычитание двоичных чисел столбиком, то получим:
 100...00100...00100...00000₂
₋                                     1101₂

  100...00100...00011...10011₂, т.е. одна 1 на 12000 месте, одна 1 на 903 месте, 683 единицы начиная с 686 по 4 место включительно, и еще две единицы в конце записи, итого 683+1+1+2=687 единиц в записи числа
Как то так