Устройства компьютера, которые не подлежат к основным называются​

Program pas02; uses crt; const   n=20; var   a: array[1..n] of real;   i,k: integer;   t: real; begin   randomize;   clrscr;   writeln('массив случайных чисел');   k: =0;   for i: =1 to n do begin       a[i]: =random(31)-15.0;       write(a[i]: 6: 1);       if a[i]=10.0 then inc(k)       end;   writeln;   writeln('количество элементов, равных 10: ',k);   write('нулевые элементы ');   k: =0;   for i: =1 to n do       if a[i]=0 then begin inc(k); write(i,' ') end;   if k=0 then writeln('отсутствуют') else writeln;   writeln('меняем местами элементы 3 и 6');   t: =a[3];   a[3]: =a[6];   a[6]: =t;   for i: =1 to n do       write(a[i]: 6: 1);   writeln end. тестовое решение массив случайных чисел     2.0 -12.0    8.0  -2.0  -1.0    3.0 -12.0  -9.0    3.0    9.0  -8.0    0.0  -7.0  -4.0 -12.0  10.0    9.0    5.0  -8.0    6.0 количество элементов, равных 10: 1 нулевые элементы 12 меняем местами элементы 3 и 6     2.0 -12.0    3.0  -2.0  -1.0    8.0 -12.0  -9.0    3.0    9.0  -8.0    0.0  -7.0  -4.0 -12.0  10.0    9.0    5.0  -8.0    6.0