1. заменить отрицательный эллемент нулем. 2. дан массив целых чисел. найти сумму элементов массива, больших данного числа а ( а вводить с клавиатуры 3. определить есть ли 2 пары соседних элементов с одинаковыми знаками. паскаль.

2.
var a, n, i, sum, x:Integer;
begin
 readln(a, n);
 sum:=0;
 for i:=1 to n do
  begin
   read(x);
   if (x>a)
   then
    sum:=sum+x;
  end;
 writeln('Сумма: ', x);
end.

3.
var
begin
 readln(n);
 pairs:=0;
 if (n>0)
 then
  read(x);
 last:=x;
 for i:=2 to n do
  begin
   read(x);
   if (x>-1 and last>-1 or x<0 and last<0)
   then
    inc(pairs);
   last:=x;
  end;
 if (pairs>1)
 then
  writeln('Yes.');
 else
  writeln('No.');
end.

1-й Рустам

2-я Галина

3-й Эдуард

4-й Яков

5-я Карина

Объяснение:

Всего 5 бегунов.

Бегун       Номер по финишированию

Рустам                        r≠2

Эдуард                      e=r+2

Яков                           a≠1

Галина                     g≠1; g≠5

Карина                      k=a+1

e=r+2 ⇒ r≤5-2=3 ⇒           ( r=1 и e=3 ) или ( r=3 и e=5 )

g≠1; g≠5 ⇒                          g=2 или g=3 или g=4

k=a+1 и a≠1 ⇒ a≤5-1=4  ⇒ ( a=2 и k=3 ) или (a=3 и  k=4 ) или ( a=4 и k=5 )

Только Рустам может быть на 1 месте. Значит Эдуард 3-й. Поскольку 3 место занято, то вариантов ( a=2 и k=3 ) или (a=3 и  k=4 ) не может быть. Значит Яков 4-й и Карина 5-я. Осталось свободное только 2-е место, значит Галина на 2-м.

1.
0,5 Кбайт = 0,5*1024 байт = 512*8 бит
512*8/128 = 32

2.
Память для одного символа = log(2)64=6 бит
Объем текста = 10*32*64*6 бит = 10*32*64*6/8 байт =
10*4*64*6/1024 Кбайт = 15 Кбайт

3.
3 Кбайт = 3*1024 байт = 3*1024*8 бит
Память для одного символа = 3*1024*8/6144 = 4 бита
Количество символов в алфавите = 2^4 = 16

4.
Память для одного символа = log(2)128=7 бит
Объем сообщения = 10*7 = 70 бит

8.
a) 3 Кбайт=3*1024 Байт = 3072 бАЙТ
b) 2 Мбайт=2*1024 Кбайт = 2*1024*1024 байт = 2*1024*1024*8 бит = 16777216 бит
c) 4,5 Гигабайт=4,5*1024 Мбайт = 4,5*1024*1024 Кбайт = 4718592 Кбайт