С40 . напишите программу полностью исправленную в этой ошибки. begin var f: real-> real : = x -> (0.1 * (sin(x) / cos(x)) * (0.1 * x + (0.0025 * x * ; var (a, b) : = readreal2('введите границы интервала: '); var (fa, fb) : = (f(a), f(b)); var eps : = readreal('введите требуемую точность: '); var n : = 1; writeln(' n', 12 * ' ', 'x', 14 * ' ', 'y'); while true do begin var x : = (a + b) / 2; var y : = f(x); if (abs(y) < eps) and (abs(b - a) < eps) then break; writeln(n: 3, x: 15: 6, y: 15: 6); if sign(fa) = sign(y) then a : = x else b : = x; n += 1 endend.​

{pascalabc.net } const   nn=100; var   a: array[1..nn] of integer;   n: integer; procedure ainit(p,q: integer); { инициализирует массив случайными целыми значениями из интервала [p; q] } var   i,k: integer; begin   randomize;   k: =q-p+1;   for i: =1 to n do a[i]: =random(k)+p end; procedure aout(k: integer); { выводит в строку значения эементов массива, отводя элементу k позиций } var   i: integer; begin   for i: =1 to n do write(a[i]: k);   writeln end; function amax(): integer; { возвращает максимальное значение элемента в массиве }   var       i,m: integer; begin   m: =a[1];   for i: =2 to n do       if m< a[i] then m: =a[i];   amax: =m end; function sumbeforelastpositive(): integer; { возвращает сумму элементов массива,   расположенных до последнего положительного элемента } var   i,j,s: integer;   flag: boolean; begin   i: =n; flag: =false;   while (not flag) and (i> =1) do begin       flag: =(a[i]< =0);       if not flag then dec(i)   end;   s: =0;   for j: =1 to i-1 do s: =s+a[j];   sumbeforelastpositive: =s end; procedure ashrink(pa,pb: integer); { процедура сжимает массив, удаляя из него элементы, модуль которых находится в интервале [pa; pb]. освободившийся элементы заполняются нулями. } var   i,j,k: integer;   flag: boolean; begin   k: =0; i: =1;   while i< =n do       if a[i] in [pa..pb] then       begin           if k=0 then k: =i-1;           j: =i+1; flag: =false;           while (not flag) and (j< =n) do begin               flag: =not (a[j] in [pa..pb]);               if not flag then inc(j);           end;           if flag then begin inc(k); a[k]: =a[j]; i: =j+1 end           else i: =n+1       end       else begin inc(k); a[k]: =a[i]; inc(i) end;   for i: =k+1 to n do a[i]: =0 end; var   p,q,k,b,c: integer; begin   write('укажите количество членов в массиве: ');   read(n);   write('укажите интервал значений элементов массива: ');   read(p,q);   write('укажите интервал исключаемых элементов массива: ');   read(b,c);   write('укажите количество позиций для вывода значений элемента: ');   read(k);     ainit(p,q);   write('исходный массив'); aout(k);   writeln('значение максимального элемента равно ',;   writeln('сумма до последнего положительного равна ',;   writeln('сжатый массив');   ashrink(b,c); aout(k) end.       тестовое решение: укажите количество членов в массиве: 15 укажите интервал значений элементов массива: -6 9 укажите интервал исключаемых элементов массива: -2 3 укажите количество позиций для вывода значений элемента: 3 исходный массив  7  7  7 -1  5  5 -5  6  0 -1  3  2 -4  1  8 значение максимального элемента равно 8 сумма до последнего положительного равна 35 сжатый массив   7  7  7  5  5 -5  6 -4  8  0  0  0  0  0  0

Const n=10; var a: array[1..n]of integer; i,j,buf: integer; begin     for i: =1 to n do           begin               a[i]: =random(100);               write(a[i]: 4);           end; for i: =1 to n-1 do     for j: =i+1 to n do           if (a[i]mod 10+a[i]div 10)> (a[j]mod 10+a[j]div 10)then                 begin                     buf: =a[i];                     a[i]: =a[j];                     a[j]: =buf;                 end; writeln; writeln('new: '); for i: =1 to n do     write(a[i]: 4); end.