Выберите фрагменты программ на Паскале, реализующие алгоритм сортировки одномерного массива "Пузырьком":
Найдите ошибки в программе, реализующей алгоритм сортировки одномерного массива "Пузырьком", фрагмент которой приведен ниже:
… for j:=2 to n do for i:=1 to j do if x[i]>x[i+1] then begin y:=x[i]; x[i]:= x[i+1]; x[i+1]:=y; end; …
for j:=2 to n do
. Верно: for j:=n downto 2 do
 
for i:=1 to j do
. Верно: for i:=1 to j-1 do
 
y:=x[i]; x[i]:= x[i+1]; x[i+1]:=y;
Верно: x[i]:= x[i+1]; y:=x[i]; x[i+1]:=y
 
Предскажите, какие значения будет содержать массив х, в результате выполнения программы на Паскале, фрагмент которой приведен ниже, если первоначально в массиве соделжались значения . Ответ дайте в поле ввода без пробелов:
. . . for i:=1 to 5 do readln (x[i]); for j:=5 downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin y:=x[i]; x[i]:= x[i+1]; x[i+1]:=y; end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной К будет находиться…
. . . n:=5; k:=0; for i:=1 to n do a[i]:=i; for j:=n downto 2 do for i:=1 to j-1 do if a[i]<a[i+1] then begin x:=a[i]; a[i]:= a[i+1]; a[i+1]:=x; k:=k+1; end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная К будет содержать значение…
. . . n:=5; k:=0; for i:=1 to n do a[i]:=i; for j:=n downto 2 do for i:=1 to j-1 do if a[i]>a[i+1] then begin x:=a[i]; a[i]:= a[i+1]; a[i+1]:=x; k:=k+1; end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная К будет содержать значение…
. . . n:=5; k:=0; for i:=1 to n do a[i]:=n-i+1; for j:=n downto 2 do for i:=1 to j-1 do if a[i]>a[i+1] then begin x:=a[i]; a[i]:= a[i+1]; a[i+1]:=x; k:=k+1; end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив вводятся числа: 1, 2, 1, 2, 1, 2. Массив У будет содержать значения:
. . . for i:=1 to n do begin readln (x[i]); y[i]:=i; end; for j:=n downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m; g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g; end; . . .
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив вводятся числа: 5, 4, 3, 2, 1. Массив У будет содержать значения:
. . . for i:=1 to n do begin readln (x[i]); y[i]:=i; end; for j:=n downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m; g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g; end; . . .
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет вывод ряда чисел. Укажите этот ряд чисел (через пробел):
. . . n:=5; for i:=1 to n do begin x[i]:=n-i+1; y[i]:=i; end; for j:=n downto 2 do for i:=1 to j-1 do if x[i]>x[i+1] then begin g:=x[i]; x[i]:= x[i+1]; x[i+1]:=g; g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g; end; for i:=1 to n do write (x[i]+y[i]); . . .
Для сортировки различных частей одномерного массива, выбранных по определенному правилу (так, чтобы "невыбранные" элементы оставались стоять на своих местах), необходимо:
Для сортировки различных частей одномерного массива, выбранных по определенному правилу (так, чтобы "невыбранные" элементы оставались стоять на своих местах), необходимо:
Результат работы программы, фрагмент которой ниже, содержимое массива А станет (введите в поле ввода в строку без пробелов):
… n:=9; for i:= 1 to n do a[i]:=i; j:=1; k:=0; for i:=1 to n do if a[i] mod 3=0 then begin b[j]:=i; j:=j+1; k:=k+1; end; for j:=k downto 2 do for i:=1 to j-1 do if a[b[i]]<a[b[i+1]] then begin x:=a[b[i]]; a[b[i]]:=a[b[i+1]]; a[b[i+1]]:=x; end;
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив вводятся натуральных чисел. Массив будет содержать:
… j:=1; k:=0; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; end; …
х
 
х
 
n
включительно 
j включительно 
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массивХ
вводятсяN
натуральных чисел. МассивУ
будет содержать:… j:=0; k:=0; n:=9; for i:=1 to n do x[i]:=i; for i:=1 to n do if x[i] mod 2<>0 then begin j:=j+1; y[j]:=i; end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив
Х
вводятся числа: 1, 8, 12, 3, 5, 4. Сумма элементов массива У будет равна:… j:=1; k:=0; n:=6; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной будет находиться:
… j:=0; m:=1; for i:=1 to n do begin read (x[i]); if x[i] mod 3=0 then begin j:=j+1; y[j]:=i; end; end; for i:=1 to j do m:=m*x[y[i]]; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной будет находиться:
… j:=0; m:=1; for i:=1 to n do begin read (x[i]); if x[i] mod 3<>0 then begin j:=j+1; y[j]:=i; end; end; for i:=1 to j do m:=m*x[y[i]]; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в переменной
M
будет находиться:… j:=0; m:=1; n:=10; for i:=1 to n do x[i]:=i; for i:=1 to n do begin if x[i] mod 3=0 then begin j:=j+1; y[j]:=i; end; end; for i:=1 to j do m:=m*x[y[i]]; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная будет содержать:
… n:=8; k:=n div 2; for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end; for i:=1 to k do s:=s+x[y[i]]; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная
S
будет содержать:… n:=8; k:=n div 2; s:=1; for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end; for i:=1 to k do s:=s*x[y[i]]; …
х
 
х
, стоящих на четных местах 
у
 
х
, на которые указывают элементы массива у
 
k
элементов массива х
 
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, переменная будет содержать:
… n:=10; k:=n div 2; for i:=1 to n do begin x[i]:=i; j:=i div 2 + 1; y[j]:=j*2; end; for i:=1 to k do s:=s+x[y[i]]; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет следующее:
… j:=1; k:=0; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; k:=k+1; end; for j:=k downto 2 do for i:=1 to j-1 do if x[y[i]]>x[y[i+1]] then begin z:=x[y[i]]; x[y[i]]:=x[y[i+1]]; x[y[i+1]]:=z; end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, произойдет следующее:
… j:=1; k:=0; for i:=1 to n do if x[i] >0 then begin y[j]:=i; j:=j+1; k:=k+1; end; for j:=k downto 2 do for i:=1 to j-1 do if x[y[i]]<x[y[i+1]] then begin z:=x[y[i]]; x[y[i]]:=x[y[i+1]]; x[y[i+1]]:=z; end; …
В результате выполнения программы на Паскале, фрагмент которой приведен ниже, массив будет содержать такие значения:
… n:=5; j:=1; k:=0; for i:=1 to n do x[i]:=i; for i:=1 to n do if x[i] mod 2=0 then begin y[j]:=i; j:=j+1; k:=k+1; end; for j:=k downto 2 do for i:=1 to j-1 do if x[y[i]]>x[y[i+1]] then begin z:=x[y[i]]; x[y[i]]:=x[y[i+1]]; x[y[i+1]]:=z; end; …