Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
444555666
const n = 30; var i, j, k, temp: integer; a: array[1..n] of integer; //= (5, 5, 5, 4, 5, 5, 4, 4, 4, 5 ); begin randomize; for i := 1 to n do // генерим массив из 4 5 6 begin a[i] := 4 + random(3); write(a[i], ' '); // выводим его на экран end; writeln; k := 1; // инициализируем указатели: k для 4, j для 6 j := n; for i := 1 to n do // if (a[i] = 6) and (i < j) then begin while (a[j] = 6) and (i < j) do j := j-1; temp := a[i]; a[i] := a[j]; a[j] := temp; j := j - 1; if (a[i] = 4) and (k <= i) then // если 6 поменялось с 4 то : begin temp := a[i]; a[i] := a[k]; a[k] := temp; k := k + 1; end; end else if a[i] = 4 then begin temp := a[i]; a[i] := a[k]; a[k] := temp; k := k + 1; end; for i := 1 to n do write(a[i], ' '); writeln; end.
run
|
edit
|
history
|
help
0
Unicorn
write
Calculatrice(TROP compliqué)
BubbleSor (slimmer)
Tri 1.0
Подсчёт количества целочисленных точек внутри круга радиуса r
3
test14
1
Task 3a