Поменять местами переднюю и заднюю части массива с чётным количеством элементов for i := 1 to n do
Obmen2(A, 2*n, i, i+n,);

var

  d:integer;

  a,b:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('Введите номер операции '); readln(d);

  case d of

    1: writeln(a, ' + ', b, ' = ', a + b);

    2: writeln(a, ' - ', b, ' = ', a - b);

    3: writeln(a, ' * ', b, ' = ', a * b);

    4: begin

        if b <> 0 then

          writeln(a, ' / ', b, ' = ', a / b)

       else

          writeln('делить на 0 нельзя');

     end;

    else

       writeln('Неизвестная операция');

  end;

end.

   

 

 

//вторая программа

 

var

  d:integer;

  a:real;

begin

  write('Длина отрезка = '); readln(a);

  write('Введите код единицы измерения '); readln(d);

  case d of

    1: writeln('Длина отрезка ', a / 10, ' метр(а, ов)');

    2: writeln('Длина отрезка ', a * 1000, ' метр(а, ов)');

    3: writeln('Длина отрезка ', a, ' метр(а, ов)');

    4: writeln('Длина отрезка ', a / 1000, ' метр(а, ов)');

    5: writeln('Длина отрезка ', a / 100, ' метр(а, ов)');

    else

       writeln('Неизвестная единица длины');

  end;

end.

#include <stdlib.h> 
#include <time.h> 
#include <stdio.h> 
#include <conio.h> 
#define N 10 
int main() { 
    int a[N], min, max; 
    size_t n, ix_min, ix_max, beg, end; 
    srand((unsigned)time(NULL)); 
    for (n = 0; n < N; n++) a[n] = rand(); 
    for (n = 0; n < N; n++) printf("%6i", a[n]); 
    printf("\n"); 
    ix_max = ix_min = 0; 
    min = max = a[0]; 
    for (n = 1; n < N; n++) { 
        if (a[n] < min) { 
            min = a[n]; 
            ix_min = n; 
        } 
        if (a[n] > max) { 
            max = a[n]; 
            ix_max = n; 
        } 
    } 
    beg = ix_min < ix_max ? ix_min : ix_max; 
    end = ix_min > ix_max ? ix_min : ix_max; 
    ++beg; 
    if (beg - end > 0) 
        for (n = beg; n < end; n++) 
            printf(" %i ", n + 1); 
    else printf("Elements are absent\n"); 
    _getch(); 
    return 0; 
}