// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов ',a.Sum);
Writeln('Количество четных элементов ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение:</em></u>
-3 4 10 1 2 6 8 7 10 14
Сумма элементов 59
Количество четных элементов 7
82 числа в этом промежутке
Ответ:
A/\B=0
А\/В=0
Объяснение:
1 это конъюнкция (логическое умножение, и). Инстина только в одном случае когда истины одновременно два высказывания, в остальные случая ложь. Т.е. если A=0 и B=1 то A/\B=0
2 это дизъюнкция (логическое сложение). Истина когда истинно А, либо В, либо А и в одновременно. Т.е. если А=0 и В=0 то А\/В=0
6.
Имя массива: Dat
| 16 | 20 | 20 | 41 | 14 | 21 | 28 | 12 | 15 | 35 |
7.
m = 0
8.
| 16 | 20 | 20 | 41 | 41 | 41 | 41 | 41 | 41 | 41 |
9.
Будет выведено число 41
10.
Программа находит наибольшее число в массиве