Составьте программу , которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: а) среднее арифметическое нечётных чисел б) сумму чисел, не превышающих 10 в) сумму чисел кратных 3 на экран выводятся исходные значения и результаты вычислений.

Program task; var a: array [1..40] of integer; b: real; c, d, e, i: integer; begin randomize; for i : = 1 to 40 do a[i] : = random(20 + 1); writeln('массив: '); for i : = 1 to 40 do write(a[i], ' '); writeln; for i : = 1 to 40 do begin if a[i] mod 2 = 1 then begin b : = b + a[i]; c : = c + 1; end; if a[i] < = 10 then d : = d + a[i]; if a[i] mod 3 = 0 then e : = e + a[i]; end; writeln('среднее арифметическое нечётных чисел: ', (b / c): 2: 2); writeln('сумма чисел, не превышающих 10: ', d); writeln('сумма чисел кратных 3: ', e); readln; end.

В 1864 году российский предприниматель Николай Шустов запустил в производство свой коньяк. И раскручивал он его весьма необычным нанял несколько десятков студентов, которые ходили по кабакам Москвы и требовали шустовский коньяк. Если этого напитка в кабаке не было, студенты «свирепели» и зачинали драку. О драках судачила вся пресса, и хватило месяца, чтобы столица узнала о коньяке Шустова. Это один из старейших примеров социального продвижения

Социальная сеть – это онлайн-сервис, сайт или платформа, предназначенные для организации социальных взаимоотношений. На таком ресурсе у каждого человека есть возможность разместить о себе какую-либо информацию (дата рождения, место обучения и работы, хобби и пр.), по которой данную учетную запись смогут отыскать другие участники. Социальные сети могут быть открыты для доступа любому интернет-пользователю, а могут представлять собой закрытую структуру, предоставляя доступ определенному кругу лиц. Несмотря на это различие, общей чертой для всех социальных сетей является наличие систем «групп» и «друзей». По данным разных аналитических сайтов, в тех или иных социальных сетях состоит каждый второй пользователь Интернета (52% из 57,8 млн. всех пользователей Рунета). Можно даже нарисовать типичный (среднестатистический) «портрет» участника таких ресурсов – это житель Северо-Западного федерального округа, примерно 18-25 лет, с высшим или неоконченным высшим образованием, имеющий достаточно прочное материальное положение. Конечно, в социальных сетях можно встретить и более взрослых, и более молодых людей, с разным уровнем достатка и различными потребностями. Неудивительно, что многие современные компании выбирают в качестве инструмента Интернет-маркетинга продвижение в первую очередь в социальных сетях – в этом случае хорошо спланированная маркетинговая стратегия позволяет охватить большую целевую аудиторию и эффективно продвинуть бизнес.

  var    a,i : integer;     b : array [1..3] of integer;     begin  readln (a);         for i : = 1 to 3 do      begin      b[i] : = a mod 10;       a : = a div 10;       end;           if (b[1] = b[2]) or (b[2] = b[3])     or    (b[1] = b[3]) then        writeln ('есть одинаковые цифры')    else      writeln ('нет');     readln ();       end.