Сформируйте массив, содержащий 18 случайных вещественных чисел, принадлежащих промежутку (квадратная скобка)|-3; 2) и подсчитывает сумму положительных чисел. выводит в столбик с двойными десятичными значениями.

Var a:real;
    i:byte;

begin
  randomize;
  for i:=1 to 18 do begin
    a:=random()*random(-3,2);
    writeln(a:2:2)
  end;
end.

8 = 1000₂

Раздели на 2, раздели на 2, раздели на 2, вычти 1.

9 = 1001₂

Вычти 1, раздели на 2, раздели на 2, раздели на 2, вычти 1.

15 = 1111₂

Вычти 1, раздели на 2, вычти 1, раздели на 2, вычти 1, раздели на 2, вычти 1.

16 = 10000₂

Раздели на 2, раздели на 2, раздели на 2, раздели на 2, вычти 1.

Второе задание не понял. Говорится, что на вход подаются три двузначных числа, потом считаются суммы старших и младших разрядов заданных трехзначных чисел. В первом пункте вычисляются два числа, а во втором говорится о полученных трех числах.

Укажите, значение переменной P после выполнения данного фрагмента программы:

P:=13;

WHILE P>0 DO P:=P-3;

ответ -2

Укажите, значение переменной L после выполнения данного фрагмента программы:

L:=1;

WHILE L<0 DO L:=L+2;

ответ 1

Укажите, сколько раз выполнится тело цикла:

L:=10;

WHILE L>0 DO L:=L-3;

ответ 4

Укажите, сколько раз выполнится тело цикла с данным заголовком:

K:=-1;

WHILE K<3 DO K:=K+2;

ответ 2

Укажите, значение переменной К после выполнения данного фрагмента программы:

K:=-1;

WHILE K<4 DO K:=K+2;

ответ 5