Расположите числа двоичной системы счисления в порядке убывания (от большего к меньшему числа: 1000, 1010, 1100, 1110, 1001

 

 

 

 

 

1110, 1100, 1010, 1001, 1000

1110,1100,1010,1001,1000

 

Программа на qbasic 7.01 dim a(20) s = 0 for i = 1 to 20     input a(i)     s = s + a(i) next i s = s / 20 for i = 1 to 20     if a(i) < 0 then a(i) = s     print a(i); " "; next i print end тестовое решение: ? 5 ? 8 ? -3 ? 7 ? 11 ? -12 ? 6 ? 0 ? -13 ? 9 ? 11 ? 0 ? 7 ? -4 ? 1 ? 9 ? 4 ? 5 ? -11 ? 3   5    8    2.15    7    11    2.15    6    0    2.15    9    11    0    7    2.15    1    9   4    5    2.15    3 чтобы продолжить, нажмите любую клавишу

Ну я набросал на паскале : program z;   var n,i,imax,s,p: integer; masiv: array of integer; begins: =0; p: =1; writeln('кол-вол значений масива'); read(n); setlength(masiv,n);   for i: =0 to n-1 do read(masiv[i]);   for i: =0 to n-1 do    begin      if i mod 2 = 0 then        if masiv[i]< imax then imax: =masiv[i];     end;   writeln();   write(imax,' ');   for i: =0 to n-1 do write(masiv[i],' ')end.