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

Procedure massiv;   var a: array[1..10] of integer;   i,max,min: integer;   begin   min: =1;   max: =1;     randomize;     for i: =1 to 10 do    begin    a[i]: =random(100);     if a[i]< a[min] then min: =i;       if a[i]> a[max] then max: =i;       write(a[i],' ');       end;       writeln('минимальное ', a[min], ' максимальное ', a[max]);       if min< max then      for i: = min+1 to max-1 do        write(a[i],' ') else        for i: = max+1 to min-1 do        write(a[i],' ')        end; begin   massiv() end.

F=a*(b+b*c) a   b   c     b +b*c     f 0   0   0         0             0 0   0   1         0             0 0   1   0         1             0 0   1   1         1             0 1   0   0         0             0 1   0   1         0             0 1   1   0         1             1 1   1   1         1             1

Если текст в 8-битной кодировке (windows): 0,25 *1024 *1024 *8 = 2097152 бит - объем текстового файла в битах 2097152 /8 = 262144 символа в тексте 61440 /60 = 1024 символа/секунду - скорость печати 262144 /1024 = 256  секунд  если текст в 16-битной кодировке (unicode): 0,25  *1024  *1024  *8  =  2097152 бит - объем текстового файла в битах 2097152 /16 = 131072 символа в тексте 61440 /60 = 1024 символа/секунду - скорость печати 131072 /1024 = 128  секунд