№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. а  теперь укажите-таки язык и я,  если с этим  языком знаком напишу  нормальный,  не извращённый  ответ.

Массивы для удобства нужны .  например тебе нужно 5 переменных в программе ты их можешь записать так  : { int a, b, c , d, e; a= 48; b=14; c=-56; d=468; e=4; } а выводить их так : { cout < < d < < endl; cout < < a < < endl; } и так далее. а с массивом все проще. { int mas[48,14 ,56,468,4] } и выводиться так: } cout < < mas[4]/*чисто в скобке- это номер где стоит число в массиве*/  < < endl; cout < < mas[2} < < endl; { когда чисел 5 , оно не особо проще,но когда их много то массив явно облегчит . или когда вместо чисел - слова нужны,то вместо слов , пишешь номер слова в массиве.

Const     u=1000; type:   mas=  array [1..u] of integer; var   a: mas;   i,j,k,n: integer; begin   read(n);   for i: =1 to n do     read(a[i]);   for i: =1 to n do   begin     k: =0;     for j: =1 to n do     begin       if a[i]=a[j] then k: =k+1;     end;     write(k,' ');   end;   readln;   readln end. если понравилось поставь лучшее решение! !