1. not T + T|F xor (1=0) or (1<-1) 2. F and T xor F or (2>3) and T
3. not 1+not (0<1) xor T | (12<2)
4. (-3=-3) + F and F and (10=7)
5. F | (39=39) * (T or not T) xor T
6. 0 | F and or (0<1) xor 1
7. (78=78) ( (-3<=54) xor 0
8.0 or T xor (20>21) *(T *T)
9. 0 | 0 and or 1 and (15=15)
10. (3=3) or 1 +0 and T
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-28,25); a.Println;
Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Положительных элементов: ',a.Where(t->t>0).Count);
var imin:=a.IndexMin;
Writeln('Номер минимального элемента- ',imin+1,
', его значение равно ',a[imin])
end.
Пример
4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21
П = -447760579166208000
Положительных элементов: 8
Номер минимального элемента- 7, его значение равно -28