Как составить программу вычисления и выдачи на печать суммы (или произведения) n элементов бесконечного числового ряда .следует пользоваться операторами цикла for: y=125(-25)5(-1)0,

1    var k,i,n,c: integer; 2      p,w: real; 3   begin4   repeat5   write('k> -3 k=') ; 6   readln(k) ; 7   until k> -3 ; 8   w: =0; 9   c: =1; 10   for i: =-3 to k do 11     begin 12       c: =-c; {-1^i} 13       p: =1; 14       for n: =i to 2*k do15       if n< > 2 then p: =p*(n*n*n-8) ; 16       if i< > 5 then w: =w+(c/sqr(i-5))* p; 17     end; 18     write('w=',w: 0: 4) 19     end .это?

Program test; const   n=14 var   i, i1, x, s, mx : integer;   t: string;   m1: array [1..n] of integer; begin   for i : = 1 to n do                      //ввод данных   begin       writeln ('введите очередной элемент --> ');       read (x);       m1[i] : = x;   end;     mx : = m1[2];                                   // поиск максимального элемента   for i : = 4 by 2 to n do   begin         x : = m1[i];         if (x > mx) then mx : = x;   end;   writeln('максимальный элемент ',mx);     mx : = m1[1];                                   // поиск минимального элемента   for i : = 2 to n do   begin         x : = m1[i];         if (x < mx) then         begin               mx : = x;               i1 : = i;           end;   end;   for i : = i1 to (n-1) do m1[i] : = m1[i+1];           //удаление минимального элемента     x : = m1[1];                                                 //меняем местами 1-й и последний элементы   m1[1] : = m1[n-1];   m1[n-1] : = x;     for i : = (n-1) by (-1) to 8 do m1[i-1] : = m1[i];                 //вставляем. освобождаем место   m1[7] : = 10;                                                                                               //вставили.       for i : = 1 to n do  writeln(i, ' --> ', m1[i]);                             //результат end; end.

Const   n = 14; var   i, m, p: integer;   a: array[1..n] of integer: =(1,-3,6,-5,-2,8,-9,14,-24,15,17,12,17,4); begin   writeln('исходный массив');   for i: =1 to n do write(a[i]: 4);   writeln;   {найти максимальный элемент среди элементов, стоящих на четных местах}   i: =4; m: =a[2];   while i< =n do begin if m< a[i] then m: =a[i]; i: =i+2 end;   writeln('максимальный из элементов на четных местах: ',m);   {удалить минимальный элемент массива}   m: =a[1]; p: =1;   for i : = 1 to n do if m> a[i] then begin m: =a[i]; p: =i end;   for i: =p to n-1 do a[i]: =a[i+1];   writeln('массив после удаления минимального элемента ',m);   for i: =1 to n-1 do write(a[i]: 4);   writeln;   {поменять местами первый и последний элементы массива}   writeln('массив после обмена местами крайних элементов');   m: =a[1]; a[1]: =a[n-1]; a[n-1]: =m;   for i: =1 to n-1 do write(a[i]: 4);   writeln;   {вставить в середину массива элемент равный 10}   p: =(n-1) div 2 + 1;   for i: =n-1 downto p do a[i+1]: =a[i];   a[p]: =10;   writeln('массив после вставки в середину элемента со значением 10');   for i: =1 to n do write(a[i]: 4);   writeln  end. результат выполнения программы: исходный массив     1  -3    6  -5  -2    8  -9  14 -24  15  17  12  17    4 максимальный из элементов на четных местах: 15 массив после удаления минимального элемента -24     1  -3    6  -5  -2    8  -9  14  15  17  12  17    4 массив после обмена местами крайних элементов     4  -3    6  -5  -2    8  -9  14  15  17  12  17    1 массив после вставки в середину элемента со значением 10     4  -3    6  -5  -2    8  10  -9  14  15  17  12  17    1