Это уже зависит от пользователей сайта. Учитывая то, что люди готовы платить бешеные деньги за какие-то открытки и наклейки, сайт будет развиваться. Конечно же, если этих людей никто не вразумит. Еще одна проблема сайта - навязывание своих дурацких сервисов компании Мэйл ру. Возможно, в будущем другие социальные сети и коммуникаторы полностью вытеснят "одноклассники".
Что напиши еще раз и я отвечу на этот вопрос! !
Const n=30;
var a:array[1..n] of integer;
k,i:integer;
begin
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
k:=0; i:=0;
while (i<n)and(k<3) do
begin
i:=i+1;
if a[i]>0 then k:=k+1;
end;
if k=3
then writeln('Номер третьего положительного элемента = ',i)
else writeln('В массиве нет 3 положительных элементов');
end.
Пример (для n=20):
-4 -10 3 -4 6 1 -9 4 -10 -8 7 7 0 -2 9 -4 -10 -3 1 -2
Номер третьего положительного элемента = 6