Дан массив а(14): 1, -3, 6, -5, -2, 8, -9, 14, -24, 15, 17, 12, 17, 4 составить программу обработки массива: 1) найти максимальный элемент среди элементов, стоящих на четных местах. 2) удалить минимальный элемент массива. 3) поменять местами первый и последний элементы массива. 4) вставить в середину массива элемент равный 10. решить на паскале, без рандома, с этими конкретными значениями.

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

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.

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var a: =readarrinteger('вводите данные: ',n); a.println;   var s: =a.where(x-> (x> 9) and (x< 100) and (x mod 10=7));   if s.count=0 then writeln('таких чисел нет')   else writeln(s.sum) end. пример n= 5 вводите данные: 45 -38 27 -17 47 45 -38 27 -17 47 74 // pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! function sod(n: integer): integer; begin   var s: =abs(n).tostring;   result: =s.select(c-> c.todigit).sum end; begin   var a: =arrrandom(readinteger('n=',999); a.println;   a: =a.select(x-> sod(; a.println end. пример n= 10 -252 814 -239 -157 792 -223 697 -482 616 -675 9 13 14 13 18 7 22 14 13 18 // pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var a: =readarrinteger('вводите данные: ',n); a.println;   writeln('четных чисел ',a.where(x-> x.iseven).count);   writeln('нечетных чисел ',a.where(x-> x.isodd).count); end. пример n= 16 вводите данные: 34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50 34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50 четных чисел 9 нечетных чисел 7

Const n = 3; var a: array[1..n] of integer; s: integer: =0; b: boolean: =false; begin for var i: =1 to n do     begin     read(a[i]);     if (a[i]> 9)and(a[i]< 100)and(a[i] mod 10 = 7) then           begin           s+=a[i];           b: =true;           end;     end; for var i: = 1 to n do     write(a[i],' '); writeln; if b then write('s = ',s) else write('таких чисел нет') end. const n = 3; var a: array[1..n] of integer; s,b: integer; begin for var i: = 1 to n do     begin     s: =0;     a[i]: = random(65536)-32767;     write(a[i]: 6,' ');     b: =abs(a[i]);     while b< > 0 do           begin           s: =s+ b mod 10;           b: = b div 10;           end;     a[i]: =s;     end; writeln; for var i: = 1 to n do     write(a[i]: 6,' '); end. const n = 3; var a: array[1..n] of integer; ch,nch: integer; begin for var i: =1 to n do     begin     read(a[i]);     if a[i] mod 2 = 0 then ch+=1     else nch+=1;     end; for var i: = 1 to n do     write(a[i],' '); writeln; writeln('чёт = ',ch); writeln('нечет = ',nch) end.