<span>Если понравилось решение - нажимай "спасибо" и "лучший" (рядом с кнопкой "спасибо") :)</span>
Uses crt;
const n=10;
var a:array [1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n-1 do
begin
if abs(a[i])=abs(a[i+1])
then
begin
if ((a[i]>0) and (a[i+1]<0)) or ((a[i]<0) and (a[i+1]>0))
then
inc(k);
end;
end;
writeln(k);
end.
83531можна так а можна просто перевернути
<span>(х>2) или не (x>1)
x=1
</span>(1>2) или не (1>1) ⇒ ложь или не ложь ⇒ ложь или истина ⇒ истина
x=2
(2>2) или не (2>1) ⇒ ложь или не истина ⇒ ложь или ложь ⇒ ложь
x=3
(3>2) или не (3>1) ⇒ истина или не истина ⇒ истина или ложь ⇒ истина
x=4
(4>2) или не (4>1) <span>⇒ истина или не истина ⇒ истина или ложь ⇒ истина
</span>Ответ: 2) 2