Спаскалем.в линейный массив вещественных чисел на 8-е место вставить элемент, равный сумме первых 10 элементов массива.

Var n, i: integer;       sum: double;       a: array[1..1000] of double; begin       readln(n);       for i: =1 to n do read(a[i]);       sum: =0;       for i: =1 to 10 do sum: =sum+a[i];       a[8]: =sum;       writeln('--');       for i: =1 to n do write(a[i]: 0: 3, ', '); end.

Сучасний розвиток ІТ сфери впроваджується в усі сфери нашого життя - навчання, виробництво, державотворення, торгівля та ін.

Ми використовуємо інформаційні технології в своєму житті, сплачуючи комунальні послуги, замовляючи товари, оформлюючи документи, працюючи зі спеціалізованими програмами на своїй роботі та ін., - і в такому випадку стаємо користувачами тих, чи інших інформаційних продуктів.

Або стаємо учасниками створення самих цих продуктів, і тоді ми є розробниками програмного забезпечення чи тестерами, - людьми, що тестують програмний продукт та надають розробниками рекомендації для подальшого вдосконалення.

Тож, якщо ви хочете навчитись використовувати популярні програми, перегляньте розділ Освоюємо програми.

Якщо ж ви прагнете стати програмістом чи тестером, - перегляньте розділи Програмування та тестування

Объяснение:

Почитай

т.к. n заранее не дано(и это все лишь фрагмент кода) то m при разных n будет получаться разный. n лежит в промежутке [-2;8]

потому, что тут m:=(l+r)div 2; при n<-2 получается индекс <0

и при n>8  в цикле индекс >7

а массив у нас всего 8 элементов

Поэтому в цикле я вывел все значения m при всех возможных значениях n

Надеюсь понятно объяснил.

при n=-2   m=0

при n=-1   m=0

при n=0   m=0

при n=1   m=1

при n=2   m=2

при n=3   m=3

при n=4   m=4

при n=5   m=5

при n=6   m=6

при n=7   m=6

при n=8   m=6

Pascal

var

 a:array [0..7] of integer = (34, 16, 16, 2, 2, 0, -4, -4);

 l, n, m, key, r:integer;

 flag:boolean;

begin

 for n:=-2 to 8 do begin

   key:=-4;

   L:=1;

   r:=n;

   flag:=false;

   Repeat

     m:=(l+r)div 2;

     if a[m]>key then

       l:=m+1

     else

      if a[m]=key then

        flag:=true

      else

        r:=m-1;

   until flag or (l>r);

   writeln('при n=',n,'   m=', m);

 end;

end.