Название этого устройства указывает на его составные элементы. 10 букв. 5 - и; 7 - т; 10 - а.

Клавиатура по-любому 

//pascal abc.net v3.1 сборка 1219 const   n=5; var   ar: array[1..n] of integer;   i,j,k: integer; begin   randomize;   writeln('first array: ');   for i: =1 to n do   begin     ar[i]: =random(-3,3);     write(ar[i]: 4);   end;   for i: =1 to n-1 do {, пузырёк. но за быструю сортировку здесь репортят}   for j: =i+1 to n do     if ar[i]> ar[j] then     begin       k: =ar[i];       ar[i]: =ar[j];       ar[j]: =k;     end;   writeln;   writeln('sorted array: ');   for i: =1 to n do   write(ar[i]: 4);   writeln;   for i: =1 to n do   if ar[i]=0 then   begin     write('index of 0 is ',i);     break;   end; end. пример работы программы: first array:   -2   -3   0   -3   3sorted array:   -3   -3   -2   0   3index of 0 is 4

//pascal abc.net v3.1 сборка 1219 const   n=30;   var   ar: array[1..n] of integer;   i,b: integer;   sr: real; begin   randomize;   writeln('first array: ');   for i: =1 to n do   begin     ar[i]: =random(0,23);     write(ar[i]: 4);     sr: =sr+ar[i];   end;   writeln;   sr: =sr/n;   writeln('sr=',sr);   write('enter value b: ');   readln(b);   writeln('final array: ');   for i: =1 to n do   begin     ar[i]: =ar[i]-b;     write(ar[i]: 6);   end; end. пример работы программы: first array:   22   7   10   13   1   4   5   6   4   21   8   20   17   15   23   5   19   18   20   19   5   11   14   0   11   4   3   23   23   17 sr=12.2666666666667 enter value b: 3 final array:     19     4     7     10     -2     1     2     3     1     18     5     17     14     12     20     2     16     15     17     16     2     8     11     -3     8     1     0     20     20     14