С. сформировать массив а с датчика случайных чисел целыми числами из интервала [-43, 32]. вывести элементы массива на экран. количество элементов массива задается с клавиатуры 1. сдвинуть массив на два элемента влево. 2. найти минимальный четный элемент массива, его номер(а) и количество. 3. поменять максимальный элемент массива местами с последним элементом. вывести получившийся массив на экран. 4. найти среднее арифметическое положительных элементов массива.

Const   nn = 50; var   a: array[1..nn] of integer;   b: array[1..10] of integer; { для номеров минимальных четных }   n, i, km, min, max, t1, t2: integer; begin   randomize;   write('укажите количество элементов массива (не более 50): ');   readln(n);   writeln('исходный массив');   for i : = 1 to n do   begin       a[i] : = random(76) - 43;       write(a[i]: 4);   end;   writeln;   writeln('1. массив со сдвинутыми влево на 2 элементами');   t1 : = a[1]; t2 : = a[2];   for i : = 1 to n - 2 do   begin       a[i] : = a[i + 2];       write(a[i]: 4);   end;   a[n - 1] : = t1; a[n] : = t2;   writeln(a[n - 1]: 4, a[n]: 4);   writeln('2. минимальные четные элементы массива');   min : = 100;   for i : = 1 to n do       if (i mod 2 = 0) then           if min > a[i] then begin min : = a[i]; km : = 1; b[km] : = i end           else if min = a[i] then begin km : = km + 1; b[km] : = i end;   write('значение: ', min, ', индексы: ');   for i : = 1 to km do write(b[i]: 3);   writeln;   writeln('3. поменять местами максимальный и последний элементы массива');   max : = -100;   for i : = 1 to n do       if max < a[i] then begin max : = a[i]; b[1] : = i end;   t1 : = a[b[1]]; a[b[1]] : = a[n]; a[n] : = t1;   for i : = 1 to n do write(a[i]: 4);   writeln;   writeln('4. найти среднее арифметическое элементов массива');   t1 : = 0;   for i : = 1 to n do t1 : = t1 + a[i];   writeln('среднее арифметическое равно ', t1 / n) end. тестовое решение: укажите количество элементов массива (не более 50): 30 исходный массив   31 -41 -18 -42 -15 -10  -8 -18 -30  21  -6 -43 -32 -18 -30  26 -37  20  29  18  26  21  29  22 -23 -43  29  30 -41  -9 1. массив со сдвинутыми влево на 2 элементами   -18 -42 -15 -10  -8 -18 -30  21  -6 -43 -32 -18 -30  26 -37  20  29  18  26  21  29  22 -23 -43  29  30 -41  -9  31 -41 2. минимальные четные элементы массива значение: -43, индексы: 10 24 3. поменять местами максимальный и последний элементы массива   -18 -42 -15 -10  -8 -18 -30  21  -6 -43 -32 -18 -30  26 -37  20  29  18  26  21  29  22 -23 -43  29  30 -41  -9 -41  31 4. найти среднее арифметическое элементов массива среднее арифметическое равно -5.4

// pascalabc.net 3.2, сборка 1404 от 16.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(10,-99,99); a.println;   writeln('сумма элементов с четным значением ',           a.where(x-> x.iseven).sum);   writeln('произведение элементов с нечетным значением ',           a.where(x-> x.isodd).aggregate(int64(,y)-> x*y)) end. пример 45 -95 41 -26 -99 -96 77 -4 18 41 сумма элементов с четным значением -108 произведение элементов с нечетным значением 54780974325

Var a,b,n,m: integer; begin write('a = '); readln(a); while a< > 0 do     begin     if (a mod 10) mod 2 = 0 then           begin           m: =1;           for n: = 0 to n do                   m: =m*10;           b: =(a mod 10)*m+b;           n: =n+1;           end;     a: =a div 10;     end; writeln(b div 10); end. пример: a = 123456789 2468