Вариант 11 1. Задать файл из вещественных чисел. Найти минимальный элемент файла. 2. Увеличить на 7 каждый элемент файла, который меньше числа 7. 3. Найти произведение всех положительных элементов файла.

Звук - это колебания воздуха, воздействующие на орган слуха человека. Впервые запись и воспроизведение звука осуществил выдающийся американский изобретатель сэр Томас Алва Эдисон (1847-1931) в 1877 г. Он изобрел фонограф - восковой валик, на котором игла фонографа при вращении валика оставляла звуковую дорожку. Звуковые колебания передавались на иглу от мембраны, находящейся в рупоре. Так осуществлялась запись звука. Для воспроизведения звука использовался тот же валик, покрытый путем электролиза металлом. Игла фонографа, двигаясь по канавке, передавала колебательные движения на мембрану и рупор. Так воспроизводился звук. Этот записи звука называется механическим. В дальнейшем он был значительно усовершенствован.

В 1888 г. была изобретена грампластинка, и на смену фонографу пришел граммофон. Его изобрел немецкий инженер Эмиль Берлинер. Ему удалось устранить такой недостаток фонографа, как невозможность тиражирования записей. Он отделил запись звука от воспроизведения и создал матрицу для штампования грампластинок.

В это же время французский инженер Шарль Кро предложил портативный вариант граммофона - патефон. Его выпускала в Париже фирма «Пате» (отсюда и название - патефон).

К концу XIX столетия начался век электричества, и в связи с этим изобретатели вели активные поиски новых записи звука. В 1888 г. знаменитый русский физик А.Г. Столетов создал первый в мире фотоэлемент. Это открытие позволило русскому ученому А.Ф. Викшемскому разработать в 1889 г. аппарат для оптической записи звука на светочувствительной ленте. Суть изобретения - в преобразовании звуковых колебаний в электрические и затем - в переменные световые. При освещении таким модулированным светом фотобумаги получается фотографическая фонограмма. Затем был найден воспроизведения звука с фотографической фонограммы. Его предложил в 1900 г. русский инженер И.Л. Поляков.

Объяснение:

Program SortByShell;

const
  nn=100; // максимальное количество элементов в массиве
 
type
  Mas=array[1..nn] of integer;
 
procedure SortShell(n:integer; var a:Mas);
var
  i,d,t:integer;
  k:boolean;
begin
  d:=n div 2; // начальный шаг сортировки
  while d>0 do begin
    k:=true;
    while k do begin
      k:=false;
      for i:=1 to n-d do begin
        if(a[i]>a[i+d]) then begin
          t:=a[i]; a[i]:=a[i+d]; a[i+d]:=t;
          k:=true
          end
        end
      end;
    d:=d div 2
    end
end;

var
  i,n:integer;
  v:Mas;

begin
  Write('n='); Read(n);
  Writeln('Вводите элементы массива');
  for i:=1 to n do Read(v[i]);
  SortShell(n,v);
  for i:=1 to n do Write(v[i],' ');
  Writeln
end.

Пример
n=15
Вводите элементы массива
-10 -7 4 -12 -26 4 34 -29 7 -28 13 -10 44 0 -46
-46 -29 -28 -26 -12 -10 -10 -7 0 4 4 7 13 34 44