Языки и технология программирования. Начальный курс \Pascal\
Методическое пособие - Компьютеры, программирование
Другие методички по предмету Компьютеры, программирование
to n do read(A[i]);
for k:=n downto 2 do { k - ээээээээээ эээээээээ эээ ээээээ max }
begin
m:=1; { m - эээээ max }
for i:=2 to k do if A[i]>A[m] then m:=i;
{ээээээ эээээээ ээээээээ э эээээээ m э эээээээ k}
x:=A[m]; A[m]:=A[k]; A[k]:=x;
end;
for i:=1 to n do write(A[i],' '); {эээээээээээээ ээээээ}
end.
ээээээ: ээ ээ ээээээ э эээээээээээээ эээээээ max э min.
program Sort_Vybor2;
var A:array[1..100] of integer;
N,i,m,k,x,p : integer;
begin
write('ээээээээээ эээээээээ эээээээ ');
read(N);
for i:=1 to n do read(A[i]);
for k:=1 to n div 2 do { k - эээээ ээээ max э min }
begin
m:=k; { m - эээээ max }
p:=k; { p - эээээ min }
{max э min ээээээ эээээ эээээээээ э k ээ n-k+1}
for i:=k+1 to n-k+1 do
if A[i]>A[m] then m:=i
else if A[i]<A[p] then p:=i;
{ээээээ эээээээ ээээээээ э эээээээ p э эээээээ k}
x:=A[p]; A[p]:=A[k]; A[k]:=x;
if m=k then m:=p;
{ээээ max эээээ ээ эээээ k, ээ ээээээ ээ ээ эээээ p}
{ээээээ эээээээ ээээээээ э эээээээ m э эээээээ n-k+1}
x:=A[m]; A[m]:=A[n-k+1]; A[n-k+1]:=x;
end;
for i:=1 to n do write(A[i],' '); {эээээээээээээ ээээээ}
end.
ээээээээээ эээээээ (эээээээ "ээээээээ")
ээээ ээээээ эээээээээээ э эээ, эээ эээээээээээээээ ээээээээээээ ээээ ээээээээ эээээээээ эээээээ. ээээ эээ эээээээээээээ ээ э эээ эээээээ, ээ эээээээээ ээээээээээээ, эээээ эээээээ ээээ ээээээээ эээээээээ. эээээ ээээээ ээээээ эээээээ ээ эээээээээ эээээ эээээ N ээээээээ ээээээээээээ эээээээ ("ээээээ" ээээээ "эээээээ"). эээээээээ ээээээ ээээээ эээээээээээээ ээээээээ ээ ээээээээээээээ э эээ эээээ. эээээ эээээээээ N-1 ээээээ. ээээээээээээээ эээээээээ ээээээээээ эээээээ O(N*N).
ээээээ: ээээээээээ эээээээ ээ эээээээээээ эээээээ A ээ N эээээ эээээ. (эээээээ эээээээ)
program Sort_Obmen1;
var A:array[1..100] of integer;
N,i,k,x : integer;
begin
write('ээээээээээ эээээээээ эээээээ ');
read(N);
for i:=1 to n do read(A[i]);
for k:=n-1 downto 1 do { k - ээээээээээ ээээээээээээ эээ }
for i:=1 to k do
if A[i]>A[i+1] then
{ээээээ эээээээ ээээээээ ээээээээ}
begin x:=A[i]; A[i]:=A[i+1]; A[i+1]:=x; end;
for i:=1 to n do write(A[i],' '); {эээээээээээээ ээээээ}
end.
эээээ ээээээээ, эээ ээээ эээ ээээээээээ ээээээээээ эээээээ э ээээээээээ эээээээ ээ эээээээээээ ээ эээээ ээээээээээээ, ээ эээ ээээээээ, эээ ээээээ эээ ээээээээээ. эээээ эээээээ, эээээ ээээээээээээээ ээээээээ, эээээ эээээээээ ээээээ эээээээ ээээээ эээ эээээээ ээээээээээээ э ээээээээээ.
ээээээ: ээээээээээ эээээээ э эээээээээ эээээ ээээээээээээ.
program Sort_Obmen2;
var A:array[1..100] of integer;
N,i,k,x : integer; p:boolean;
begin
write('ээээээээээ эээээээээ эээээээ ');
read(N);
for i:=1 to n do read(A[i]);
k:=n-1; {ээээээээээ эээ эээ ээээээ эээээээ}
p:=true; {ээээээээээ ээээээээээ p эээээээ, ээээ ээээ
ээээээээээээ, э.э. эээээ ээээээээээ ээээээээээ}
while p do
begin
p:=false;
{ээээээ ээээээ эээээээ. ээээ ээээээээээээ ээ ээээ.}
for i:=1 to k do
if A[i]>A[i+1] then
begin
x:=A[i]; A[i]:=A[i+1]; A[i+1]:=x;
{ээээээ ээээээээ эээээээ}
p:=true; {э ээээээээээ ээээ ээээээээээээ}
end;
k:=k-1;
{эээээээээ ээээээээээ эээ эээ ээээээээээ эээээээ}
end;
for i:=1 to n do write(A[i],' '); {эээээээээээээ ээээээ}
end.
эээээээээ эээээээээээ эээээээээ ээээээээээ эээээээ ээээээээээ эээ эээээээээээ эээээ эээээээээ ээээээээээээ. ээээ эээ эээээээээ эээээээ эээээээээ эээээ эээээээээ, эээээээ ээээээээээ эээээээ, ээээ A[i] э A[i+1], ээ ээээээээ эээээээ э i+1 ээ ээээээээээ эээ эээээ ээ эээээ ээээээ. эээээээээээээ ээээ ээээээээээ эээээээээ эээ эээээээ ээээээээээ эээ эээ ээээээээээ эээээээ ээээээ i-1.
ээээээ: ээээээээээ эээээээ э ээээээээээээ эээээ эээээээээ ээээээээээээ.
program Sort_Obmen3;
var A:array[1..100] of integer;
N,i,k,x,m : integer;
begin
write('ээээээээээ эээээээээ эээээээ ');
read(N);
for i:=1 to n do read(A[i]);
k:=n-1; {ээээээээээ эээ эээ ээээээ эээээээ}
while k>0 do
begin
m:=0;
{ээээ ээээээээээээ ээ ээээ эээээээ эээ, эээээ эээээ 0}
for i:=1 to k do
if A[i]>A[i+1] then
begin
x:=A[i]; A[i]:=A[i+1]; A[i+1]:=x; {ээээээ ээээээээ эээээээ}
m:=i; {э ээээээээээ эээээ ээээээээээээ}
end;
k:=m-1; {ээээээээээ эээ эээээээ ээ эээээ эээээээээ ээээээээээээ}
end;
for i:=1 to n do write(A[i],' '); {эээээээээээээ ээээээ}
end.
эээээээээ ээээээээээ
ээээ ээээээээ, ээ ээээ, ээээээээ ээээээээээээ ээээээээээ эээээээ. эээээээ эээээээ ээээээ э эээ, эээ ээээ э ээээээээээ эээээээ эээээээ ээээээээээээээ ээээээ э эээээ эээээээээээ, ээ эээээ эээээээээээ ээээээ эээ ээээээээ. э эээээээээ ээээээээээ эээээ эээээ эээээээээ ээээ ээээээээээээ эээ ээээээээээ эээээ эээээээээ ээээээээээээ. э эээээээ эээээээээ ээээээээээ эээээээ ээээээээ эээээ N div 2. ээээээээээээээ эээээээээ эээээээээ ээээээээээ O(N*N).
ээээээ: эээээээээ ээээээээээ ээ эээээээээээ эээээээ A ээ N эээээ эээээ.
program Shaker;
var A:array[1..100] of integer;
N,i,k,x,j,d : integer;
begin
write('ээээээээээ эээээээээ эээээээ ');
read(N);
for i:=1 to n do read(A[i]);
d:=1; i:=0;
for k:=n-1 downto 1 do { k - ээээээээээ ээээээээээээ эээ }
begin
i:=i+d;
for j:=1 to k do
begin
if (A[i]-A[i+d])*d>0 then
{ээээээ эээээээ ээээээээ ээээээээ}
begin x:=A[i]; A[i]:=A[i+d]; A[i+d]:=x; end;