Заданы 2 одномерных массива. сформировать третий из элементов с нечетными индексами обоих массивов и положительных элементов второго массива

Const n=5; var i,q: integer; a: array [1..n] of integer; b: array [1..n] of integer; c: array [1..50] of integer; begin writeln ('заполните первый массив'); for i: =1 to n do read (a[i])                       ; writeln ('заполните второй массив') ; for i: =1 to n do read (b[i]); for i: =1 to n do begin if i mod 2< > 0  then begin  q: =q+1; c[q]: =a[i];   q: =q+1; c[q]: =b[i];   end;   end; for i: =1 to n do  if b[i]> 0  then begin    q: =q+1;     c[q]: =b[i];     end;   if q=0  then writeln ('условие не выполняется')  else begin for i: =1 to q do write (' ',c[i]); end end.p.s. вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной  константой. можно эту константу поменять, это все на ваше усмотрение.p.p.s. программа написана на pascal abc.

//dev-c++ (c) #include < stdio.h> int main(void)   {const int n=10;   int ar[n],i;   i=0;   while(i< n)   {scanf("%d",& ar[i]);   i++; }   i=0;   while(i< n)   {if(ar[i]%2==0)printf("%d ",ar[i]);   i++; }   return 0; } //pascalabc.net 3.2 сборка 1318 const   n=10; var   ar: array[1..n] of integer;   i: integer; begin i: =1; while(i< =n) do   begin     readln(ar[i]);     i: =i+1;   end; i: =1; while(i< =n) do   begin     if ar[i] mod 2=0 then write(ar[i],' ');     i: =i+1;   end; end. пример ввода: 1 2 3 4 5 6 7 8 9 0 пример вывода: 2 4 6 8 0

Кто такой Винер?

Норберт Винер родился в еврейской семье. Он был первым ребёнком Лео Винера и Берты Кан. Отец учёного, Лео Винер (1862—1939), родился в городе Белосток Российской империи, учился в Минской, а затем Варшавской гимназии, поступил в Берлинский технологический институт, после окончания второго курса которого переехал в США, где в итоге стал профессором на кафедре славянских языков и литературы в Гарвардском университете.

Кто такой Шеннон?

Клод Шеннон родился 30 апреля 1916 года в городе Петоски (штат Мичиган, США). Отец его, Клод-старший (1862—1934), был бизнесменом, добившимся успеха своими собственными силами, адвокатом и в течение некоторого времени судьёй. Мать Шеннона, Мейбел Вулф Шеннон (1890—1945), была преподавателем иностранных языков и впоследствии стала директором Гэйлордской средней школы. Отец Шеннона обладал математическим складом ума. Любовь к науке была привита Шеннону его дедушкой. Дед Шеннона был изобретателем и фермером. Он изобрёл стиральную машину наряду с другой полезной в сельском хозяйстве техникой. Томас Эдисон был дальним родственником Шеннонов.

Первые шестнадцать лет своей жизни Клод провёл в Гэйлорде (Мичиган), где в 1932 году закончил Гэйлордскую общеобразовательную среднюю школу. В юности он работал курьером службы Western Union. Молодой Клод увлекался конструированием механических и автоматических устройств. Он собирал модели самолётов и радиотехнические цепи, создал радиоуправляемую лодку и телеграфную систему между домом друга и своим домом. Временами ему приходилось ремонтировать радиостанции для местного универмага.

Шеннон, по собственным словам, был аполитичным человеком и атеистом.

Кем и когда был введен термин «гипертекст»?

Гипертекст — термин, введённый Тедом Нельсоном в 1963 году для обозначения текста «ветвящегося или выполняющего действия по запросу».

Можно ответить на эти два вопроса таким образом:

     1) Леонард Эйлер – ученый, физик, математик и астроном. Его перу принадлежит более шестисот трудов, которые стали фундаментом для различных точных дисциплин. Именем этого человека названы уравнения, функции и т.д. Кроме того, он основательно исследовал медицину, химию, ботанику, аэронавтику, концепцию музыки. И до сегодняшнего дня позиции и концепции Эйлера поддерживаются современной наукой.

       2) Эта графическая схема названа в честь Леонарда Эйлера.

Кого считают изобретателем WWW?

В 1989 году британец Тим Бернерс-Ли и бельгиец Роберт Кайо придумали систему WWW, работая в лаборатории европейской организации ядерных исследований. Разумеется, они не знали, к чему приведет их открытие. Считается, что основным создателем WWW был все-таки Бернерс-Ли.

Объяснение: