Надеюсь пойдет
Химические волокна изготавливают искусственные (из природных полимеров, главным образом из целлюлозы) и синтетические, сырьем для которых являются синтетические смолы, получаемые из нефтегазового и угольного сырья.
Основные центры производства тяготеют либо к районам текстильной промышленности (Центральный район), либо к районам развитой нефтехимии (Поволжье).
Основные центры производств химических волокон:
Искусственные волокна из природных полимеров служат для производства ацетата и вискозы. Предприятия по их производству расположены в городах Балаково, Рязань, Тверь, Санкт-Петербург, Шуя (Ивановская обл.). Синтетические волокна из синтетических смол служат для изготовления капрона, нитрона, лавсана. Комбинаты по их изготовлению работают в Саратове, Волжском. Совместное производство искусственных и синтетических волокон находится в городах Клин, Серпухов, Энгельс.
(*-*)
const n=30;
var k: array[1..n] of integer; i,t,p: integer;
begin
randomize;
for i: =1 to n do begin
k[i]: =random(100);
if (k[i]> 0) then p: =p+1;
if (i=3) and (k[3]> 0) then t: =k[3];
end;
if (p< 3) then write('в массиве меньше трех положительных элементов') else writeln('третий элемент массива равен ', t);
end.
отрицательного значения в массиве не будет, напиши формулу к массиву k[i]: =твоя формула. формула должна быть такой, чтобы попадались и отрицательные элементы, а так, программа рабочая
