Структура документа. автоматизоване створення змісту та покажчиків (2 ). 2.1. відкрийте вказаний файл. 2.2. створіть на початку документа його зміст. 2.3. створіть у кінці документа предметний покажчик для всіх слів, які позначено червоним кольором. 2.4. збережіть документ з іменем практична робота №2.docx.та відправте на перевірку вчителю. увага! і завдання виконуються на українській мові.

Var a: array[1..10] of integer;
    b: array[1..10] of real;
    i,n: integer;
    s: real;
begin
  s:=0; n:=0;
  write('массив a:  ');
  for i:=1 to 10 do
  begin
    read(a[i]);
    if a[i]<0 then 
    begin
      s:=s+a[i];
      n:=n+1;
    end;  
    write(a[i],' ');
  end;
  s:=s/n; 
  writeln;
  writeln('среднее арифметическое отрицательных: ',s);
  writeln('количество отрицательных: ',n);
  write('массив b:  ');
  for i:=1 to 10 do
  begin
    if a[i]<0 then b[i]:=s
    else b[i]:=a[i];
    write(b[i]:7:3);
  end;
end.

массив a:  2 2 -3 1 -5 -6 -5 9 -7 5 
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b:    2.000  2.000 -5.200  1.000 -5.200 -5.200 -5.200  9.000 -5.200 5.000

А вот так понятнее: 1001110= 
1) проставь над каждой цифрой числа справо на лево двойки со степенями т.о. чтобы над первым нулем (справа) стояла 2 в нулевой степени, над единицей - 2 в первой степени, над следующей единицей - 2 во второй степени, и т.д. Т.О над последней единицей (слево) будет 2 в седьмой степени. а теперь смотри как получается число в десятичной: надо сложить произведения этиз двоек на те числа, которые стоят под ними соответственно. 
итак: 
1001110=2в шестой* 1+2в пятой*0+2 в четвертой*0+2 в третьей*1+2 во второй*1+2 впервой*1+2 в нулевой*0 = 64+8+4+2=78