Доброе утро. у меня и вам вопрос особенно к програмистам. подскажите я создал свой сайт и выложил туда фильмы. подскажите как сделать так чтобы когда другие люди заходили на него и качали фильми, а мне шли за ето деньги.

Оу,  даже так? ну про скачивание фильмов я не знаю, а за просмотр рекламы (у гугла есть такой сервис) вполне можно сумму наскрести, но сейчас все в вк смотрят онлайн или торрентом качают так что, извини, впрочем, удачи: ) я как-то пытался в детстве обогатиться выгрузкой игр с сайтов х) если надо, то лучше сделай блог хороший и, когда он раскрутится, добавь туда рекламку: ) или взломай популярный сайт и опять-таки рекламу туда, но я этого не говорил =)

Const       n = 100; var       i, neg_k, pos_k, pos_s, neg_p: integer;       a: array[1..n] of integer; begin       for i : = 1 to n do       begin               a[i] : = random(10 + 50) - 10;               write(a[i], ' ');       end;       writeln();             neg_p : = 1;       for i : = 1 to n do               if a[i] > 0 then begin                       pos_k : = pos_k + 1;                       pos_s : = pos_s + a[i];               end               else if a[i] < 0 then begin                       neg_k : = neg_k + 1;                       neg_p : = neg_p * a[i];               end;       writeln('positive: ', pos_k, ' ', pos_s);       writeln('negative: ', neg_k, ' ', neg_p); end.

Const       g = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']; var       s: string;       k, i: integer; begin       readln(s);       s : = ' ' + lowercase(trim(s));             k : = 0;       for i : = 1 to length(s) do               if (s[i] = ' ') and not (s[i + 1] in g) then                       k : = k + 1;             writeln(k); end.