Сформировать одномерный массив из 10 случайных элементов в диапазоне от 0 до 100. Найти количество элементов массива, больших среднего арифметического всех его элементов. Если это количество чѐтное, то увеличить каждый элемент ...

Пишите, пожалуйста, язык, который вам нужен. Пишу на наиболее вероятном: Pascal. program massiv; uses crt; var A:array[1..10] of integer; s: real; i,k, p: integer; begin clrscr; randomize; writeln ('задан массив:'); for i:=1 to 10 do begin a[i]:=random(100); {задание массива} s:=s+a[i];{ считаем сразу сумму элементов} write (a[i]:4); {вывод на экран} end; s:=s/10; for i:=1 to 10 do if a[i]>s then p:=p+1; if p mod  2= 0 then {проверка на четность}                           for i:=1 to 10 do a[i]:=a[i]+i                              else                                          begin                                         k:=a[5];                                         a[5]:=a[6];                                         a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}                                         end; writeln; {дабы у вас ничего не слиплось} for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран}  end.