Const n=10;
var a:array[1..n] of integer;
i:integer; b:boolean;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
b:=false;
i:=1;
while (i<n) and not b do
begin
b:=(a[i]>0)and(a[i+1]>0);
i:=i+1;
end;
if b then writeln(i-1,' ',i) else writeln('no');
end.
Пример:
Исходный массив:
-10 -7 4 6 4 -8 1 10 -2 -10
3 4
7111216
Вроде так должно быть
<span>они стояли под деревом, обняв друг друга за плечи, и алиса сразу поняла, кто из них труляля, а кто - траляля, потому что у одного на воротнике было вышито "тру", а у другого - "тра". "а "ляля", верно, вышито у обоих сзади", - подумала алиса<span>.</span></span>
Команды nmap<span> и </span>ping<span> помогут просканировать локальную сеть и определить IP адреса подключенных компьютеров.</span>
A) 1002
Так как двоичный код состоит только из 0 и 1,другие числа не могут быть