Найти ошибки - паскаль. условие: дан одномерный массив, состоящий из вещественных элементов. найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами. не совсем то выводит program proizvedenie; var q,z,w,i,n,i1,i2: integer; a: array[1..1000] of real; amin,amax,pr: real; begin assign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln(n); for i: =1 to n do read (a[i]); amin: =a[1]; for i: =1 to n do begin if a[i] amax then amax: =a[i]; i2: =i; end; if i2> i1 then begin q: =i1; w: =i2; end else begin q: =i2; w: =i1; end; if (w-q)> 1 then begin pr: =1; for z: =q to w do pr: =pr*a[z]; end else write (0); close (input); close (output); end.

Вот программас использованием файлов program proizvedenie; uses crt; var a: array[1..1000] of real;     amax,amin,p: real;     i,n,i1,i2: integer;     inp,outp: text; begin assign(inp,'input.txt'); assign(outp,'output.txt'); readln(n); p: =1; reset(inp); for i: =1 to n do read(inp,a[i]); close(inp); amin: =a[1]; for i: =1 to n do if abs(amin)> =abs(a[i]) then begin amin: =a[i]; i1: =i; end; amax: =a[1]; for i: =1 to n do if abs(amax)< =abs(a[i]) then begin amax: =a[i]; i2: =i; end; if (i2> i1) and (i1+1< > i2)  then for i: =i1+1 to i2-1 do p: =p*a[i] else if (i1> i2) and (i1-1< > i2) then for i: =i1-1 downto i2+1 do p: =p*a[i] else begin write(0); exit; end; rewrite(outp); write(outp,p); close(outp); end.без файловprogram proizvedenie; uses crt; var a: array[1..1000] of real;       amax,amin,p: real;     i,n,i1,i2: integer; beginp: =1; readln(n); for i: =1 to n doread(a[i]); amin: =a[1]; for i: =1 to n doif abs(amin)> =abs(a[i]) then begin amin: =a[i]; i1: =i; end; amax: =a[1]; for i: =1 to n doif abs(amax)< =abs(a[i]) then begin amax: =a[i]; i2: =i; end; if (i2> i1) and (i1+1< > i2) then for i: =i1+1 to i2-1 dop: =p*a[i] elseif (i1> i2) and (i1-1< > i2) then for i: =i1-1 downto i2+1 dop: =p*a[i] else beginwrite(0); exit; end; write(p); end.ошибки: 1)в разделе описания переменных var нет файловых переменных input и output; 2)в строке 24 нет ; 3)сравнивать нужно модули  переменных amin и amax с модулем a[i]; +++много лишних переменных

Вычислим (5×2^30×8)/(2.3)=40×2^30/2.3=1.86×10^10