Сформировать целочисленный массив из 12 произвольных чисел. получить новый массив, который отличается от исходного тем, что все элементы исходного массива с четными номерами удвоены, а с нечетными- заменены единицей

Var a: array[1..12] of integer; b: integer; begin for b: =1 to 12 do begin a[b]: =random(201)-100; write(' a[',b,']=',a[b]); end; writeln; for b: =1 to 12 do begin if (b mod 2=0)  then a[b]: =2*a[b] else a[b]: =1; write(' a[',b,']=',a[b]); end; end.

Объем аудиофайла рассчитаем по формуле: х= t*n*i*k, где t- время ( n- частота дискретизации (гц), i- глубина кодирования (бит), k- количество каналов записи. так как запись моно, количество каналов k=1. получаем: х=8*44000*8*1= 2816000 бит 2816000 бит/8= 352000 байт 352000 байт/1024= 343,75 кбайт ответ: 343,75 кбайт 2. частоту дискретизации определим из формулы предыдущей : n=x/(t*i*k) файл стерео, значит  количество каналов k=2 объем файла х переведем в биты. n=(2000*1024*8)/(16*16*2) = 32000 ответ: 32000 гц

Var  s: array [1..10] of integer;   i: byte;   n: integer;   flag: boolean = false; begin write('n = '); readln(n); for i : = 1 to 10 do repeat   write('s[',i,'] = ');   readln(s[i]); until ((s[i] > = -10) and (s[i] < = 20)); write('исходный массив: '); for i : = 1 to 10 do begin   write(s[i], ' ');   if (s[i] = n) then       flag : = true; end; if flag = true then   writeln(#13 + 'совпадение найдено.') else   writeln(#13 + 'совпадение не найдено.'); end.