Написать программу в pascal! дан одномерный целочисленный массив а, состоящий из n элементов, n- заданное натуральное число, пусть max- наибольшее, min- наименьшее значения среди элементов массива. составить одномерный массив в из простых чисел и сегмента [min, max], которые не являются элементами массива а, записав его элементы в порядке неубывания. если таких элементов нет, то выдать соответствующее текстовое сообщение.

Вцелом программа рабочая, за исключением одного маленького блока, т.к. не могу прописать условие нормально: с я указала комментарии к частям кода, в том числе и к тому самому блоку. если кто знает, как его составить - отпишитесь: ) const n=5; function prime(a: integer): boolean; //функция определяет, является ли число простым var i,n: integer; begin prime: =false; if (a< 2) then exit; if (not odd(a)) and (a< > 2) then exit; for i: =3 to trunc(sqrt(a)) do begin if a mod i = 0 then exit; inc(i,2); end; prime: =true; end; var a,b,c: array[1..n] of integer; i,j,p,min,max: integer; begin for i: =1 to n do a[i]: =random(10); //заполняем массив write('исходный массив: '); for i: =1 to n do write(a[i]: 5); //выводим массив на экран writeln; min: =a[1]; max: =a[1]; //ищем минимальное и максимальное значение for i: =1 to n do if (a[i]> max) then max: =a[i]; for i: =1 to n do if (a[i]< min) then min: =a[i]; write('минимальное: ',min,' максимальное: ',max); //выводим эти значения на экран writeln; for i: =1 to n do if (prime(a[i])) or (a[i]=1) and (a[i]< > 2) then //заполняем массив с простыми числами, которые входят в массив а c[i]: =a[i]; write('простые числа в массиве а: '); for i: =1 to n do write(c[i]: 5); //выводим массив с на экран writeln; j: =min; //  весь вопрос в этом небольшом  блоке, заполнить массив в числами от min до max(которые уже найдены), не входящими в массив с for i: =1 to n do begin if (prime(j)) and (j< > c[i]) and (j< > 2) then b[i]: =j; inc(j); end; for i: =n-1 downto 1 do begin //сортируем по возрастанию for j: =1 to i do if (b[j]> =b[j+1]) then begin p: =b[i]; b[i]: =b[i+1]; b[i+1]: =p; end; end; write('искомый массив: '); for i: =1 to n do write(b[i]: 5); //выводим массив в на экран writeln; end.

Если считать, что скорость передачи данных в канале связи постоянна, то соотношение между временем передачи неупакованного и упакованного файла будет равно соотношению размеров передаваемых файлов. передача упакованного файла происходит за 20-10=10 секунд (мы вычли время на упаковку и распаковку). а передача неупакованного происходит за 1 минуту 20 с, т.е. за 1 х 60 + 20 = 80 секунд. 80 / 10 = 8. неупакованный файл передается медленнее в 8 раз, следовательно, он в 8 раз больше, чем упакованный. тогда упакованный файл имеет размер 24 мб / 8 = 3 мб ответ: 3 мб

Носитель         пример                                     форма представления бумага             газета                                     текстовая  картон             почтовая открытка                   графическая бумага             билет на поезд                       текстовая табличка         табличка с  номером дома         текстовая диск                 сборник мультфильмов           графическая звуковая