Задание 2: Заданы простые высказывания. Из них составлены сложные высказывания. В соответствии с номером варианта записать их формулами алгебры логики и на языке программирования VBA. Простые высказывания: N = Ветер северный; S = Ветер южный; D = Идет дождь; C = Идет снег; M = На улице мороз; O = На улице оттепель; T = Температура плюсовая; I = На деревьях иней; U = На улице туман; P = Небо пасмурное; Z = Налипание снега на провода; G = На дорогах гололедица. Таблица 3.2 Вариант Составное высказывание 1 2 1 На улице мороз, небо пасмурное, но снег не идет 2 На улице температура плюсовая и туман или на деревьях иней 3 Если северный ветер или не идет снег, то на улице мороз 4 На дорогах нет гололедицы, если дует северный ветер при морозе 5 На улице оттепель или на деревьях иней, если температура плюсовая 6 Для того чтобы шел дождь или снег, необходимо пасмурное небо 7 Для появления на деревьях инея или снега на проводах, достаточно пасмурного неба и оттепели 8 Для гололедицы на дорогах необходимо и достаточно наличие плюсовой температуры при северном ветре и тумане 9 Чтобы не было ни снега, ни дождя, необходимо, чтобы небо не было пасмурным 10 На улицах туман или на деревьях иней может быть тогда и только тогда, когда на улице оттепель
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(30);
Writeln('1. Количество четных ',a.Where(t->t.IsEven).Count);
var s:=a.Where(t->(t mod 3=0) and (t mod 9<>0) and t.Between(10,99));
Write('2. Мудреное среднее арифметическое ');
if s.Count=0 then Writeln(-1) else Writeln(s.Average);
Write('3. Наибольшая длина цепочки четных элементов ');
var (l,l1):=(-1,0);
foreach var t in a do
if t.IsEven then l1+=1
else begin
l:=Max(l,l1);
l1:=0
end;
Writeln(l);
var k:=ReadInteger('4. Номер удаляемого элемента (1-30):')-1;
Writeln('Массив после удаления элемента');
a:=a?[:k]+a?[k+1:]; a.Println;
Write('5. Второй максимум ');
a.OrderByDescending(t->t).Skip(1).Take(1).Println
end.
Пример
40 -116 91 -47 14 -10 -88 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
1. Количество четных 19
2. Мудреное среднее арифметическое 54
3. Наибольшая длина цепочки четных элементов 9
4. Номер удаляемого элемента (1-30): 7
Массив после удаления элемента
40 -116 91 -47 14 -10 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
5. Второй максимум 133