Практикум по решению задач на ЭВМ. Тарова И.Н - 54 стр.

                                              Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


б) a1 a 2 n + a 2 a 2 n −1 + ... + a n a n +1 ;
в) min( a1 + a n +1 , a 2 + a n + 2 ,..., a n + a 2 n ) ;
г) max(min(a1 , a2 n ), min(a2 , a2 n−1 ),..., min(an , an+1 )) .

3) Дано натуральное число n и действительные числа x1,…,xn. Получить
последовательность x1-xn, x2-xn,…, xn-1-xn.

{вычисления с хранением последовательностей, число членов которых за-
висит от исходных данных}
  uses CRT;
  const
    SIZE=100;{max размер массива}
  var
    a:array[1..SIZE] of real;
    b:array[1..SIZE] of real;
    i:integer;{индекс}
    n:integer;
  begin
    clrscr;
    writeln('Ввод массива целых чисел');
    write('после ввода каждого числа ');
    writeln('нажимайте ');
    readln(n); {ввод количества элементов в нашей последовательности }
    for i:=1 to n do
       begin
          write('a[',i,']->');
          readln(a[i]);
       end;
    writeln('Новая последовательность: ');
    for i:=1 to n do
       begin
          b[i]:=a[i]-a[n];
          writeln(b[i]);
       end;
    readln;
  end.




                                                     54