Найти ошибки - паскаль. условие: дан одномерный массив, состоящий из вещественных элементов. найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами. не совсем то выводит 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]; +++много лишних переменных

1. первый интервал 21-30, в него входят 10 чисел (21,22,23,24,25,26,27,28,29,30) = а вероятность будет равна количеству чисел этого интервала к общему интервалу [1; 100]. таким образом для первого интервала 10/100 = 10% = 0,1. 2.идем по аналогии с предыдущим интервалом : [31; 55] - это 25 чисел,следовательно 25/100= 25% = 0,25. 3.интервал [25; 100] - это 75 чисел. 75/100= 75%= 0,75. 4. ровно 25, это единственное число,а как вы уже успели заметить - каждое число является 1 процентом. таким образом можно сразу сказать что вероятность для этого случая 1% или 0,01. ответ: 0.1 ; 0.25 ; 0.75 ; 0.01.

Если в записи числа присутствует цифра 8, то её основание не может быть меньше 9. в девятиричной системе двух разрядов достаточно для представления числа 88(9)=9х8+8=80(10), поэтому в системе с любым рассматриваемым нами основанием число 32 будет двухзначным. запишем 32 в расширенной форме в системе счисления по основанию n: 32(10)=a x n + b. по условию запись числа оканчивается цифрой 8, т.е. b=8. тогда an+8=32 или an=24. остается решить полученное уравнение в целых числах относительно минимального n≥9: n=24/a разложим 24 на множители: 24 = 2 х 2 х 2 х 3, ⇒ а ∈ (2, 3, 4, 6, 8, 12, 24) a=2 ⇒ n=12 a=3 ⇒ n=8, что уже меньше 9 и большие значения a можно не рассматривать. полагая а=2 и n=12 получаем запись 28 в двенадцатиричной системе. проверка: 28(12)=2х12+8=24+8=32(10). ответ: 12