Буду очень благодарна

синий,желтый,красный,зеленый,оранж.

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

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

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

end;

writeln;

end.

Тут надо вручную составить таблицу истинности для этого лог.выражения (можно назвать его функцией F).

Её начало уже записано в задании - это три столбца с входными сигналами (A, B, C).

После этого делаете и заполняете столбцы с инверсными входными сигналами (если такие используются в выражении) - тут это будут  ¬A, ¬C.

Затем, выполняете по порядку лог. операции из этого выражения (и результаты для каждой заносите в свой столбец. Последний из этих столбцов будет содержать результаты последней лог. операции - они же и есть результаты для всей функции F.

Вся таблица истинности показана на скрине внизу, а значения для функции F (которые нужно занести в ответ) там выделены жёлтым цветом. Здесь я их выпишу отдельно:

F

0

0

1

1

1

0

1

0

Можно конечно обойтись и без заполнения таблицы - а сразу, подставляя в лог. выражение текущие значения входных сигналов, в уме просчитывать что будет на выходе, и записывать эти значения сразу в ответ. Но, так делать посложнее, поэтому всё же таблицу лучше заполнить, там каждый шаг расписывается.