Программа в pascal. при генератора случайных чисел создать линейный числовой массив состоящий из 15 элементов интервала -10: 10 посчитать количество четных элементов массива,найти среднее арифметическое нечетных элементов, заменить все положительные элементы массива нулями,новый массив вывести на экран.

Program n1; const n=15; var a: array[1..n] of integer; kc,sum,kn,i: integer; begin randomize; writeln('исходный массив: '); kc: =0; sum: =0; kn: =0; for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); if a[i] mod 2=0 then kc: =kc+1; if a[i] mod 2< > 0 then begin kn: =kn+1; sum: =sum+a[i]; end; if a[i]> 0 then a[i]: =0; end; writeln; writeln('полученный массив: '); for i: =1 to n do write(a[i],' '); writeln; writeln('кол-во чет: ',kc); writeln('кол-во нечет: ',kn); writeln('срзнач неч: ',sum/kn); end.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(15,-10,10); a.println; // создали и вывели значения   writeln('четных : ',a.where(n-> n.iseven).count);   writeln('ср.арифм. нечетных: ',a.where(n-> n.isodd).average);   a.transform(n-> n> 0? 0: n); a.println // заменили и вывели значения end. пример 6 -3 -9 -9 10 1 -1 -4 -6 5 7 8 4 -8 -3 четных : 7 ср.арифм. нечетных: -1.5 0 -3 -9 -9 0 0 -1 -4 -6 0 0 0 0 -8 -3

ответ:

1) 3 единицы, так как чтобы составить число 641, нужно брать числа, которые являются степенью числа 2. получаем 512 + 128 + 1, значит всего 3 единицы, так как 3 числа.

2)8гб=8*1024мб=8*1024*1024кб

8*1024*1024 = 2^3*2^10 *2^10 =2^23

2^23/256=2^23/2^8=2^15=32768 файлов.

3)также как и в 1 расписываем наше число как числа, являющиеся степенью 2. получаем 512+32+2=546 , значит 3 едениницы, самое большое число в нашей записи - 512, а это 8 степень числа 2, значит цифр в двоичной записи на единицу больше, т е девять, отнимаем наши 3 единицы (каждое число : 512, 32,2 - является единицей в двоичной записи) получаем 6 нулей.

4)4гб=4*1024мб

4*1024 = 2^2*2^10 =2^12

2^12/32=2^12/2^5=2^7=128 файлов.

объяснение:

во 2 я расписал числа как степени числа 2 и по свойству степеней их считал.