Пишите, пожалуйста, язык, который вам нужен. Пишу на наиболее вероятном: 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.
Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while i<m do
begin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.<span>
</span>
Переведем сначала все в двоичную:
88.45₁₀ = 64 + 16 + 8 + 45/100 = 1011000.001110011001₂
1 011 000.001 110 011 001₂ = 130.1421₈
101 1000.0011 1001 1001₂ = 58.399₁₆