Составим таблицу истинности для всех частей высказывания (см. рисунок во вложении, зелёная единица = "истина", красный ноль = "ложь"). Из таблицы видно, что только при Х=2 значение высказывания Х>1 ^ ((X <5) -> (X<3)) истинно.
Ответ: 2
Var a: array[1..10] of integer;
<span> b: array[1..10] of real;
</span><span> i,n: integer;
</span><span> s: real;
</span><span>begin
</span><span> s:=0; n:=0;
</span><span> write('массив a: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> read(a[i]);
</span><span> if a[i]<0 then
</span><span> begin
</span><span> s:=s+a[i];
</span><span> n:=n+1;
</span><span> end;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> s:=s/n;
</span><span> writeln;
</span><span> writeln('среднее арифметическое отрицательных: ',s);
</span><span> writeln('количество отрицательных: ',n);
</span><span> write('массив b: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> if a[i]<0 then b[i]:=s
</span><span> else b[i]:=a[i];
</span><span> write(b[i]:7:3);
</span><span> end;
</span><span>end.
</span>массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
<span>среднее арифметическое отрицательных: -5.2
</span><span>количество отрицательных: 5
</span><span>массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200</span><span> 5.000
</span><span>
</span>
<span>На сравнении программных кодов с известными вирусами</span>
Ну наверно набираешь 5 литровое и переливаешь его в в 9, потом снова набераешь 5 и наполняешь 9 до черты в 5 останется литр воды вот и все дела=)))))
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
for var i:=0 to a.IndexMin-1 do a[i]:=0; a.Println;
end.
<u>Пример</u>
n= 13
-10 44 17 13 50 49 -7 -46 -36 14 35 42 26
0 0 0 0 0 0 0 -46 -36 14 35 42 26