Написать программу, которая:заполнит массив из 10 элементов случайными целыми числами (от 1 до 100),выведет эти числа на экран,все элементы массива, которые более чем вдвое меньше максимального заменит значением минимального элемента,выведет на экран все элементы обновлённого массива.Например, если массив будет заполнен числами:5, 10, 1, 50, 30, 15, 45, 35, 27, 31то обновлённый массив будет следующим:1, 1, 1, 50, 30, 1, 45, 35, 27, 31т.к. все значения более чем вдвое меньше максимального (50 / 2 = 25, то есть меньше 25) заменились минимальным УМОЛЯЮ!

1. в 1902 году

2. считывание изображения и его конвертирование в цифровой формат

3. область сканирования, оптическое разрешение, тип матрицы сканера

4. Epson, canon, hp, Xerox

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

6. Сканеры в основном используются при переводе бумажных носителей в электронные. Вместе с хэш-функциями, которыми заверяют документы нотариусы, используются в делопроизводствах. Ручные сканеры используются в супермаркетах для считывания штрих-кодов. Перспективы развития у них низкие, разве что в уменьшении размеров, т.к. на современном уровне сканеры считывают изображения и электронный вид точно такой же, а после обработки даже лучше, как и у бумажного оригинала.

Const
  n=10;
var
  a:array[1..n] of integer;
  i,_start,_end, startInd, endInd:integer;
begin
  Randomize;
  Write('Исходный массив: ');
  _start:=-1; _end:=-1;
  startInd:=-1; endInd:=-1;
 
  for i:=1 to n do
  begin
    a[i]:=random (0,100);
    Write(a[i],' ');
  end;
  Writeln;

  for i:=2 to n do
  begin
    if a[i]>a[i-1] then
      if _start > -1 then _end := i else
         begin
         _start := i-1;
         _end := i;
         end
    else
      begin
      
      if (_start > -1) and ((endInd - startInd) < (_end - _start)) then
        begin
         startInd := _start;
         endInd := _end;
        end;
        
      _start := -1;
      _end := -1;
      end;
  end;
 
  if startInd > -1 then
  begin
    Writeln('Длина диапазона: ', (endInd-startInd+1));
    Write('Значения из диапазона: ');
    for i:=startInd to endInd do Write(a[i],' ');
  end;

end.