№2 дан масив целых числ. найти в этом массиве минимальный элмент m и максимальный m. получить в порядке возрастания все целые числа из интервала (m; m), которые не входят в данный массив. №3 сформировать массив простых чисел , не больших заданного натурального числа n. №4 сформировать массив простых множителей заданного числа.

Хосспаде  иегове,  да научитесь же вы язык  указывать!   perl. 2. @array;   #формат  ввода  не задан, будем считать что он уже заполнен. $min =  $array[0]; $max = $array[0]; for  $i  (@array)  {       $min  = $i  if  ($i  < $min);       $max = $i if ($i > $min); } %hash = map {$_ => 1} @array; for  $i  in ($min..$max)  {       print  "$i  "  if $hash{$i})); } 3. use  quantum: : superpositions;   #модуль  для квантовых вычислений, жутко удобная штука. @primes; $n  = < > ; push  @primes, ($i)  if  ($i  % all(2..sqrt($i)+1) ! = 0) i for  $i (2..$n); #ответ  в массиве @primes. 4.  на  этот вопрос я  не так давно  отвечал, ну ладно. $n  =  < > ; @multipliers; for  $i  (2..$n)  {       if $n % $i)) {               push @multipliers, ($i);               $n /= i;         } } #ответ  в  массиве  @multipliers. а  теперь укажите-таки язык и я,  если с этим  языком знаком напишу  нормальный,  не извращённый  ответ.

var c,a,b,i,j,l: integer; begin  cls;

  write('введите через пробел отрезок');   read(a,b);   for i: =a to b+1 do  begin    j: =2;     l: =round(sqrt(i));     while (i mod j < > 0) and (j < = l) do                                                                            begin                                                                              inc(j);                                                                             end;       if (j > l) then                                    begin                                      write(c,' ');                                       c: =i;                                     end;   end; end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.