Есть такие массивы (НО ОНИ ЕСТЬ ТОЛЬКО В PASCAL ABC NET), которые называются <em><u>д</u></em><em><u>и</u></em><em><u>н</u></em><em><u>а</u></em><em><u>м</u></em><em><u>и</u></em><em><u>ч</u></em><em><u>е</u></em><em><u>с</u></em><em><u>к</u></em><em><u>и</u></em><em><u>е</u></em>. Это такие массивы, длину которых ты назначаешь сам в теле программы. Здесь тебе нужно использовать именно их, так как ты заранее не знаешь, сколько будет положительных компонентов.
<h3>Пример объявления динамического массива:</h3>
<em>v</em><em>a</em><em>r</em><em> </em><em>a</em><em>:</em><em> </em><em>a</em><em>r</em><em>r</em><em>a</em><em>y</em><em> </em><em>o</em><em>f</em><em> </em><em>i</em><em>n</em><em>t</em><em>e</em><em>g</em><em>e</em><em>r</em><em>;</em><em> </em><em>/</em><em>/</em><em>в</em><em>о</em><em>т</em><em> </em><em>э</em><em>т</em><em>о</em><em> </em><em>д</em><em>о</em><em> </em><em>b</em><em>e</em><em>g</em><em>i</em><em>n</em>
<em>S</em><em>e</em><em>t</em><em>L</em><em>e</em><em>n</em><em>g</em><em>t</em><em>h</em><em>(</em><em>a</em><em>,</em><em> </em><em>b</em><em>)</em><em>;</em><em> </em><em>/</em><em>/</em><em>п</em><em>о</em><em>с</em><em>л</em><em>е</em><em> </em><em>b</em><em>e</em><em>g</em><em>i</em><em>n</em><em>,</em><em> </em><em>г</em><em>д</em><em>е</em><em> </em><em>b</em><em> </em><em>-</em><em> </em><em>количество элементов массива</em>
Далее работаешь как с обычным массивом.
<span><em>uses crt;</em>
<em>var a,b,c,d,x:real;
</em>
<em>begin</em>
<em>clrscr;</em>
<em> writeln('введите A,B,C');
</em>
<em> readln( a,b,c );
</em>
<em> d:=sqr(b)-4*a*c;
</em>
<em> if d<0 then </em>
<em> writeln('действительных корней нет') </em>
<em> else if d=0 then </em>
<em> begin
</em>
<em> x:=(-b)/2*a;
</em>
<em> writeln('корень уравнения: ',x);
</em>
<em> end else </em>
<em> begin
</em>
<em> x:=(-b+sqrt(d))/2*a;
</em>
<em> writeln('1-ый корень уравнения: ',x);
</em>
<em> x:=(-b-sqrt(d))/2*a;
</em>
<em> writeln('2-ой корень уравнения: ',x);
</em>
<em> end
</em>
<em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
Существенный признак<span> — </span>признак<span>, придающий </span>предмету<span> качественную </span><span>определенность; </span>признак<span>, без которого </span>предмет<span> перестает </span>существовать<span> как данный</span>предмет<span>.</span>