Какое программное обеспечение работы с пользовательскими устройствами (фото, видео камеры, сканеры, телефоны)

Const   n = 20; var   a: array[1..n] of real;   i, imax, imin: integer;   r, rmax, rmin: real; begin   randomize;   writeln('элементы массива');   rmax: =-1; { заведомо меньше меньшего }   rmin: =100; { заведомо больше большего }   for i : = 1 to n do   begin       r: =random(10);       a[i]: =r;       write(r,' ');       if rmax< r then begin rmax: =r; imax: =i end;       if rmin> =r then begin rmin: =r; imin: =i end   end;   writeln;   { меняем местами и выводим результат }   a[imax]: =rmin; a[imin]: =rmax;   writeln('конечное состояние массива');   for i : = 1 to n do write(a[i],' ');   writeln end. тестовое решение: элементы массива 4 1 2 8 6 3 7 5 5 1 4 4 3 3 6 8 5 4 7 6 конечное состояние массива 4 1 2 1 6 3 7 5 5 8 4 4 3 3 6 8 5 4 7 6 видно, что первая восьмерка поменялась местами с последней единицей.