Решение
Pascal
Выделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
const
n = 15; {массив из 15 элементов, можно менять}
var
a : array [1..n] of integer;
i, k, ko, _a : integer;
s : real;
begin
s := 0;
k := 0;
ko := 0;
{заполняем и выводим массив, считаем сумму элементов}
writeln('массив:');
randomize;
write('введите A: ');
readln(_a);
for i := 1 to n do
begin
a[i] := random(100) - 50; {создаем i-ый элемент...}
write(a[i], ' '); {...выводим его...}
{если отрицательный суммируем, считаем кол-во}
if a[i] < 0 then
begin
s := s + a[i];
inc(ko)
end;
{если > A и на четном месте количество +1}
if (a[i] > _a) and (i mod 2 = 0) then inc(k)
end;
writeln; {строку перевели}
writeln('среднее арифметическое отрицательных: ', (s/ko):0:6);
writeln('кол-во больших A на нечетных местах: ', k)
end.
Пусть В - высказывание "противоположные углы параллелограмма в сумме составляют 180 градусов". Оно ложно, т.к.у параллелограмма 180 градусам равна сумма углов, прилежащих к одной стороне, а противоположные углы в сумме либо меньше 180 градусов, либо больше. (истинно только в частных случаях - в прямоугольнике и квадрате, но поскольку в данном высказывании квантора в явном виде нет, то подразумевается, что свойством "противоположные углы в сумме составляют 180 градусов" обладают любые параллелограммы, следовательно, высказывание ложно)
"Противоположные углы параллелограмма равны и в сумме составляют 180 градусов" - это высказывание является конъюнкцией высказываний А и В (в высказывании употребляется союз "и").
А ∧ В ложно, т.к.конъюнкция высказываний ложна тогда, когда хотя бы одно из высказываний ложно.
1) Отрицание А ∧ В - это А ∧ В (отрицание конъюнкции) : "Неверно, что противоположные углы параллелограмма равны и в сумме составляют 180 градусов".
__ __
2) Отрицание А ∧ В - это А ∨ В (дизъюнкция отрицаний) : "Противоположные углы параллелограмма не равны или в сумме не составляют 180 градусов".