Объект, который передает информацию называется источник
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var s:=a.Where(t->t.IsOdd and (t>0));
if s.Count=0 then Writeln('Нет нечетных положительнных')
else s.Min.Println
end.
<u>Пример</u>
n= 13
31 -5 -22 19 -30 21 -11 -28 -3 20 -19 36 -29
19
Если я правильно поняла, то вот:
А) A = 3, B = 4, C = 5
НЕ (3=4) ИЛИ НЕ (3<5) ⇒ НЕ Ложь ИЛИ НЕ Истина ⇒ Истина ИЛИ Ложь ⇒ Истина
Б) A = -2, B = -2, C = 0
НЕ (-2=-2) ИЛИ НЕ (-2<0) ⇒ НЕ Истина ИЛИ НЕ Истина ⇒ Ложь ИЛИ Ложь ⇒ Ложь
В) A = 0, B = 0, C = -2
НЕ (0=0) ИЛИ НЕ (0<-2) ⇒ НЕ Истина ИЛИ НЕ Ложь ⇒ Ложь ИЛИ Истина ⇒ Истина
Г) A = -2, B = 0, C = -2
НЕ (-2=0) ИЛИ НЕ (-2<-2) ⇒ НЕ Ложь ИЛИ НЕ Ложь ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>Б) A = -2, B = -2, C = 0 </span>
ФУНКЦИЯ mod вычисляет остаток от деления. Если одно целое делится без остатка на второе, то оно кратно второму. Следовательно, верен ответ с.