Написать программу по информатики для решения : в массиве рост юношей задан отрицательным числом, рост девушек положительным, определите отдельно средний рост юношей и девушек и можно это сделать как нибудь примерно так? program xxx; var m, d, i, ran: integer; a: array [1..10] of integer; begin for i: =1 to 10 do ran: =100-random(200)+1; for i: =1 to 10 do if a[i]< 0 then m: =m+a[i] else d: =d+a[i]; write (m, ' '); write (d, ' ') end.

//Не люблю "примерно так"
//PascalABC.NET 3.2 сборка 1318

Const
  n=10;

  Var
   m,fm:real;
  mc,fmc,i:integer;
val:array[1..n] of real;
begin
for i:=1 to n do
  begin
    readln(val[i]);
    if val[i]>0 then
       begin
        inc(fmc);
        fm+=val[i];
      end
     else
     if val[i]<0 then
      begin
        inc(mc);
        m+=abs(val[i]);
      end
      else
      begin
        writeln('Funny joke!(no)');
        exit;
      end;
 end;
writeln('Male average=',m/mc);
writeln('Female average=',fm/fmc);
end.

13. В колоде содержится 32 карты. Из колоды случайным образом вытянули туза, потом его положили обратно и перетасовали коло-ду. После этого из колоды опять вытянули этого же туза. Какое количество бит информации в сумме содержат эти два сообще-ния?

14. В колоде содержится 32 карты. Из нее наугад взяли 2 карты. Ка-кое количество информации несет сообщение о том, что выбраны туз и король одной масти?

15. Каждый студент в группе изучает только один из 3 языков: ан-глийский, немецкий или французский. Причем 2 студента изуча-ют французский язык. Информационный объем сообщения "Сту-дент Петров не изучает английский язык" 2* ((log2 3) -1)равен бит. Количество информации, содержащееся в сообщении "Студент Иванов изучает немецкий язык", равно log2 3 бит. Сколько сту-дентов изучают английский язык?

16. Сельскохозяйственная фирма засеяла каждое из своих полей од-ной из трёх культур: пшеницей, рожью или гречихой. Причём 23 поля засеяны не гречихой. Для проверки качества посева наугад выбирается одно поле. Количество информации, содержащееся в сообщении «Поле засеяно пшеницей», равно 5- log2 3 - log2 5 бит. Информационный объем сообщения «Поле засеяно не ро-жью» равен бит. Сколько полей засеяно не пшеницей?

Объяснение:

Чип, вживляемый в мозг всем при рождении. Он подключен непосредственно к нейронам, передает компу напрямую команды (без необходимости пользоваться мышкой и клавой) , и передает от компа в мозг видео и аудио сигналы без необходимости пользоваться монитором и наушниками. Кроме того, становится возможно передавать запахи, вкусы и ощущения. 

... очень скоро находится кучка хакеров, которые ломают эту систему, превращая всех людей на планете в зомби. Кучка хакеров захватывает мир. Потом главный хакер убивает всех других хакеров и становится правителем мира. И никто даже не рыпнется против него! :) Занавес.