Магистраль- 1. набор проводников, связывающих устройства компьютера 2. количество одновременно передаваемых по шинам бит 3. набор команд, предназначенных для передачи данных в компьютере 4. быстрая , энергонезависимая память компьютера

2. количество одновременно передаваемых по шинам бит

Const n=10; var    s1,s2,i: integer;   var a: array[1..n] of integer; begin   s1: =0; s2: =0;   writeln ('исходный массив');   for i: =1 to n do begin     a[i]: =random(-10,10);     write (a[i]: 3);     if a[i]> =0       then s1: =s1+a[i]       else if a[i] mod 2< > 0         then s2: =s2+a[i];   end;   s1: =s1*2;   writeln;     writeln ('удвоенная сумма положительных элементов = ',s1);   writeln ('сумма нечетных отрицательных элементов = ',s2); end. : исходный массив   -2   0   8 -6 -1   6   7 -4 -7-10 удвоенная сумма положительных элементов = 42 сумма нечетных отрицательных элементов = -8

// pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var n: =arrrandom(50,-111,348); n.println;   writeln('произведение элементов, кратных 5, равно ',       n.where(x-> x mod 5=0).aggregate(biginteger(,b)-> a*b));   if n.where(x-> x.isodd).count> n.where(x-> x.iseven).count then       writeln('нечетных элементов больше')   else writeln('четных элементов больше') end. пример 151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82 произведение элементов, кратных 5, равно -21155254513747200000000000000 четных элементов больше