Положительные числа - от 1 до 7, их сумма 1+2..+7=28
отрицательные - от - 15 до -1, их произведение -(1*2*3*...*15) посчитаешь на калькуляторе
Процессор, жёсткий диск, оперативная память, видеокарта, материнская плата, сд привод
<span>переменной A присвоить значение выражения D плюс 9</span>
program xxx;
<span>const n=30;
</span>
<span>var
a : array [1..n] of integer;
i, kn, kd : integer;
begin
</span>
<span> readln(n);
</span>
<span> kn:=0;</span>
<span> kd:=0;
for i:=1 to n do
begin
</span>
<span> write('a[',i,']=');
</span>
<span> readln (a[i]);</span>
<span> if a[i]=0 then kn:=kn+1;</span>
<span> if a[i]=2 then kd:=kd+1;
end;</span>
<span><span> for i:=1 to n do
</span> write(a[i], ' ');
</span>
<span> writeln();
writeln('Количество чисел равных 0 -',kn);</span>
<span><span> writeln('Количество чисел равных 2 -',kd);</span>
readln();
end.</span>