const n=15;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
if a[i] mod 2 <> 0 then a[i]:=a[i]+1
end;
writeln('Исходный массив: ',a);
for i:=1 to n do
if a[i] < 0 then
begin
a[i]:=0;
k:=k+1
end;
writeln('Преобразованный массив: ',a);
writeln('Отрицательных элементов было: ',k)
end.
Интернет-зависимость – это расстройство в психике, сопровождающееся большим количеством поведенческих проблем и в общем заключающееся в не человека вовремя выйти из сети, а также в постоянном присутствии навязчивого желания туда войти.Зависимый от интернета человек не может вовремя выйти из онлайн среды и постоянно стремится туда вернуться. Люди, которые страдают интернет-зависимостью, очень часто ищут в нем утешение, для них интернет — это доступ в фантастический виртуальный мир, где они могут свободно общаться, быть собой, или же наоборот примерять на себя разные роли, быть тем, кем хочется быть в реальном мире. Если человеку не хватает общения в реальной жизни, он может прибегнуть к интернету, который сможет сделать для него более доступными межличностные отношения.симптомы интернет-зависимости:
Желание постоянно пользоваться интернетом;Потеря интереса к реальной деятельности; более сильное воздействие виртуальных новостей (отзывов, сообщений и т.д.) на психологическое состояние человека по сравнению с событиями реальной жизни. Вы ощущаете огромную радость перед каждым новым сеансом, а без доступа в интернет испытываете грусть и уныние;Низкая сосредоточенность на любом деле. Во время интернет-серфинга забываете о служебных обязанностях, учебе, домашних делах, встречах и договоренностях;Потеря чувства времени;Постоянно проверяете новостные и информационно-развлекательные сайты, обновляете почту, новостную ленту и аккаунты;Возникают трудности взаимодействия с реальным миром (потеря живого контакта с друзьями и родными);Постоянно возрастающий уровень социальной тревоги;Нарушение сна и плохое самочувствие;Забывчивость.
Алгоритм довольно простой и сложный одновременно.
Для начала на странице типа /reset мы вводим в поле имейл и проверяем есть ли такой. Если есть, то в отдельной таблице или в новом поле (в вашем user) соотносим имейл и случайные символы (как с авторизацией). И отправляем на тот имейл ссылку типа example.com/reset?[случайные символы]. По переходу на reset?[ххх] проверяем к какому имейлу или пользователю относится эти символы. После чего меняем password в таблице. (Не забывая зашифровать).
PS: лучше задавать такие вопросы на stackoverflow или на других тематических форумах. И да, сухо, я знаю. (Без примеров)
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
Пример-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -68 0 10 2 4 0 0 2 2 10 0 0 0 0 2 0