отзавитесь все люди от очень буду блогодарен​">

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Количество отрицательных значений ',a.Where(t->t<0).Count);
end.

Пример
n= 15
3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21
Количество отрицательных значений 5

№2

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=ReadInteger('k=');
  if a.ElementsByRow.Any(t->t>k) then Writeln('Есть')
  else Writeln('Нет')
end.

Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив ***
  -9  48 -98 -35 -33 -29  44 -32
 -33 -48 -62  11  45  53  52  90
 -96  -1  68 -21  15 -72 -78 -28
  44  15 -53 -33 -27  89 -60 -49
  28 -73 -99  81  23  -9 -93 -66

k= 92
Нет

ответ: A ребята выбрали американский боевик.

Объяснение:

Выделим простые высказывания и запишем их через переменные:

А — «Французский фильм»

В — «Боевик»

С — «Комедия»

Запишем логические функции (сложные высказывания). Учтем условие о том, что каждый из ребят оказался прав в одном предположении:

а) «Французский боевик» A&B˅A&B

б) «Американскую мелодраму» A&B˅ А&В

в) «Нефранцузская комедия» A&C˅A&C

Запишем произведение :

(A&B˅A&B) & (A&B˅ А&В)&( A&C˅A&C)=1.

Упростим формулу: (A&B˅A&B) & (A&B˅ А&В)&( A&C˅A&C)=

(A&B˅A&B) & (A&B˅ А&В)&( A&C˅A&C)=

=(A&B& A&B˅ A&B& A&B˅A&B &А&В˅ A&B&A&B)&( A&C˅A&C)=

=(A&B ˅A&B)&( A&C˅A&C)= A&B& A&C˅A&B& A&C˅ A&B&A&C˅A&B&A&C=

= A&B&C˅ A&B&C =1

Проанализируем результат:

Результат Б и В: не является решением, т.к. в ответе оба утверждения оказываются неверными, что проти­воречит условию задачи.

Результат А: удовлетворяет усло­вию задачи и поэтому является верным решением.