Порядок неубывания,значит порядок возрастания. 2828 не может,так как если мы введём максимальное число 99999,то будет 2727 2512 не может, так как порядок возрастания,а 25>12 2518 не может, так как порядок возрастания,а 25>18 2524 не может, так как порядок возрастания,а 25>24 2425 может(число 78997) 1825 может(число 72979) 1225 может(число 12979) 123 не может,существует 2 варианта записи этого числа: 1)12 и 3,но такого быть не может,так как 12>3 2)1 и 23,но такого быть не может,так как чтобы получилось 23 должны быть числа больше 7,а 1 получается слева,значит среднее число максимум 1,но нам оно не подходит Итак,подходят 2425,1825,1225 ответ: 3
Var i,j,p:integer; a:array[1..20]of integer; begin writeln('Исходный массив:'); for i:=1 to 20 do begin a[i]:=random(20); write(a[i],' '); end; writeln; i:=1; while i<21 do begin j:=i; while j<21 do begin if a[i]<a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; j:=j+2; end; i:=i+2; end; i:=2; while i<21 do begin j:=i; while j<21 do begin if a[i]>a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; j:=j+2; end; i:=i+2; end; writeln('Измененный массив:'); for i:=1 to 20 do write(a[i],' ') end.
2 значащих нуля