var i,s,p:integer; a:array [1..100] of integer;
begin
s:=0; p:=0;
writeln('Vvedite masiv a:');
for i:=1 to 10 do begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i]>0 then s:=s+a[i];
end;
s:=s*2;
writeln('Udvoennaya suma polozhitelnih elementov=',s);
writeln('Indexi elementov kotorie bolshe prediduschego:');
writeln;
for i:=2 to 10 do begin
if a[i]>a[i-1] then write(i,', ');
end;
for i:=2 to 10 do begin
if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0)) then p:=p+1;
end;
writeln;
if p>0 then writeln('Masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('Masiv ne imeet pari sosednih elementov s odnakovimi znakami');
readln(s);
end.
Начнем с того, что даже если вам каким-то образом удастся получить IP адрес пользователя вк, то это вам ровным счетом ничего не даст. В лучшем случае вы узнаете город, в котором находится этот человек и больше ничего. И это только в том случае, если этот субъект не использовал средства анонимизации. Как мы видим, в большинстве случаев у людей возникают проблемы достаточно серьезного характера: кого то шантажируют, на кого то клевещут, рас ложные сведения и т.д. В большинстве случаев злоумышленник перестраховывается и использует средства анонимизации. Поэтому полученный IP адрес вполне вероятно окажется IP адресом какого-нибудь анонимайзера или впн сервиса.
