Заполнить массив случайными числами в интервале [-30, 35] и отобрать в массив в все положительные числа, а в массив с – все отрицательные числа. в массиве а – 10 чисел. пример: массив а: -25 13 15 16 35 -7 21 -22 -5 3 массив b: 13 15 16 35 21 3 массив с: -25 -7 -22 -5

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var A:=ReadArrInteger(10);
  var b:=a.Where(t->t>0).ToArray; b.Println;
  var c:=a.Where(t->t<0).ToArray; c.Println;
end.

Пример:
-25 13 15 16 35 -7 21 -22 -5 3
13 15 16 35 21 3
-25 -7 -22 -5

1)В помехоустойчивой форме используют затухание, ослабление, глушение сигнала, из-за дальности передачи, экранизирующих факторов некоторых преград, и т.д. Для борьбы используется помехоустойчивое кодирование.

2) ...

3) Цифро-аналоговый преобразователь (ЦАП) — устройство для преобразования цифрового (обычно двоичного) кода в аналоговый сигнал (ток, напряжение или заряд). Цифро-аналоговые преобразователи являются интерфейсом между дискретным цифровым миром и аналоговыми сигналами.

4) дискретизация

5) ...

6) 44,1 КГц, 22,05 КГц, 11,025 КГц.

7) ...

8) Префиксные коды

9) ...

10) 0001

0010

0100

1000

11) D = 11025*1024*8 / (2*64*16) Гц = 44100 Гц = 44,1 кГц

12) ...

ТАМ ГДЕ Я НАПИСАЛА "..." ОЗНАЧАЕТ ЧТО Я НЕ ЗНАЮ

ЕСЛИ ДУМАЕТЕ ЧТО ЭТО НЕ ПРАВИЛЬНО НЕ ПИШИТЕ

Объяснение:

Program pr;
uses crt; 
Var a,b,c:integer; 

Begin   
Write('Введите 1-ю сторону: '); Readln(a);   
Write('Введите 2-ю сторону: '); Readln(b);   
Write('Введите 3-ю сторону: '); Readln(c); 
  
{Проверка на существование треугольника} 
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a)   then        
     Begin                     
          if ((a=b)or (b=c) or (a=c)) then               
                Writeln('Треугольник равнобедренный');                       
 
         if ((a=b) and (b=c)) then               
            Writeln('Треугольник равносторонний')                 
         else Writeln('Треугольник разносторонний');           
  
        if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a))    then
             Writeln('Треугольник прямоугольный');                      
    end   
   else       Writeln('Треугольник нельзя построить');    

Readln(); 
END.