Одномерные массивы вариант №1 1. дан массив целых чисел, состоящий из 20 элементов. заполнить его случайными числами. найти: • сумму элементов, имеющих нечетное значение; • индексы тех элементов, значения которых больше заданного числа а; • в данном массиве положительные элементы (вывести их на экран), кратные k.

Var     s,i,a,k: integer;     m: array[1..20]of integer; begin write('введите а и k: '); readln(a,k); writeln('массив: '); for i: =1 to 20 do   begin   m[i]: =random(20);   write(m[i],' ');   if m[i] mod 2=1   then s: =s+m[i];   end; writeln; writeln('сумма нечетных: ',s); write('искомыe индексы: '); for i: =1 to 20 do   if m[i]> a then write(i,'; '); writeln; writeln('положитеьные, кратые ',k,': '); for i: =1 to 20 do   if (m[i]> 0) and (m[i] mod k=0) then write(m[i],'; ');   end.

  интересное кто изобрел компьютер?   22 августа 2011   50813  современный человек уже и жизни не может представить без компьютера. а ведь где-то в 50-х годах 20-го века люди считали, что компьютер необходим лишь для того, чтобы просчитывать траектории полетов к . а еще раньше даже слова-то такого "компьютер" не знали. окунемся в создания компьютеров. в каком году изобрели компьютер само слово "компьютер" имеет значение "вычислитель". уже давным-давно люди нуждались в изобретении устройства, которое могло бы автоматически обрабатывать данные, вычислять. сложно сказать, кто и когда изобрел компьютер, так как сначала надо определиться, что считать этим самым устройством вычислений и обработки данных. в первой половине 19-го века чарльз бэббидж, , сделал попытку создать универсальную вычислительную машину. эта аналитическая машина должна была сама выполнять вычисления без человека. но не смог завершить свою работу, для техники того времени это оказалось слишком сложно. но ему последователи получили все основные идеи. в 1941 году инженер конард цузе и в 1943 году американец говард эйкен воспользовались идеями бэббиджа и все-таки построили такую аналитическую машину! кто изобрел компьютер в современном понимании чарльза бэббиджа можно назвать тем, кто первым изобрел компьютер, или создателем первого прообраза компьютера. но все же первой реально работающей машиной, которая решала практические , стала eniac. это компьютер, разработанный специально для нужд армии, для счета таблиц авиации и артиллерии. в 1946 году миру стало известно, что в сша запустили первый в мире компьютер eniac. аббревиатура расшифровывается как  electronic numerical integrator and computer (электронный цифровой интегратор и компьютер). на его строительство ушло около половины миллиона долларов. над ним трудились примерно три года. размеры машины просто поражают! он весил 28 тонн и потреблял 140 квт энергии. вы только представьте себе, что охлаждался первый компьютер авиационными двигателями chrysler.

Function turn(a: array of integer): array of integer; begin       var t : = a[low(a)];       for var i : = low(a) to high(a) - 1 do               a[i] : = a[i + 1];       a[high(a)] : = t;             turn : = a; end; begin       var a : = arrrandom(12, 0, 9);       for var i : = low(a) to high(a) do       begin               a.println();               a : = turn(a);       end; end.