Языки и технология программирования. Начальный курс \Pascal\
Методическое пособие - Компьютеры, программирование
Другие методички по предмету Компьютеры, программирование
/b> write('ээ эээээ');
end.
program Poisk2b;
var A:array[1..100] of integer;
N,X,i,y:integer;
begin
read(N); {N<=100}
for i:=1 to N do read(A[i]);
read(X);
y:=A[N]; {ээээээээээ ээээээээээ ээээээээ}
A[N]:=X; {эээээээээ эээээээ ээ эээээээээ эээээ эээээээ}
i:=1; {i:=0;}
while A[i]<>X do i:=i+1;
{repeat i:=i+1; until A[i]=X;}
if (i<N) or (y=X) then
write('ээээээ эээээээээ эээээ ',X,' э ээээээ A ээ ',i,' эээээ')
else write('ээ эээээ');
A[N]:=y; {ээээээээээээээ ээээээээээ ээээээээ эээээээ}
end.
ээээээээ (ээээээээ) эээээ
ээээээээ эээээээээ ээээээ эээээ ээээээээээээ эээ ээээээ ээээээээ э ээээээээ эээээээээ ээээээ э ээээээээ, эээээээээээээ ээ эээээ ээээээээ. эээ эээ ээээээ эээээ э ээээээээ эээээээээ ээээээээээ эээээ ээээээ, эээээээээээээ ээ эээээээээээ эээ ээ ээээээээ ээээээээ эээээээээ. э, ээээээээ, эээ ээээээ эээээ э ээээээээ ээээээ ээээ ээээээ ээээээ ээээ ээээээээээ ээ эээээээээээ эээ ээ ээээээээ ээээ ээээ эээээээээ.
ээээ эээээээээ эээээээ э эээ, эээ ээээээ ээээээ эээ эээээээ эээээээ э ээээээээээ ээ эээээ, эээ эээээ ээээээээээ ээээээ эээээээ. эээээээ ээээээээээээ ээээ эээээ эээээээ эээ ээээээ ээээээ ээээээ ээээээээ, эээээ ээээ ээээээээ эээээээээ ээээ ээээээээээ эээээээ ээ ээээээээээ эээээээ ээээээ.
ээээээээээ эээ эээээээээээ эээээ эээээээээ эээ ээээээ эээээээ э ээээээээээ эээээээээ. эээ эээээээ ээ ээээ, эээ ээээээээээ эээээээ эээээээ: эээээээээээ э эээээээ эээ эээээээ эээээээ. э ээээээ ээээээ эээээээ эээээээ эээээээээ э эээээ эээээ эээээээ, э ээ ээээээ - э ээээээ.
э ээээээээ ээээээ эээээээээ эээээээээ ээээээ ээээээ эээээээээ, эээ ээээ эээээ ээээээ ээээээээээээ, ээээээ эээ эээээээээээ ээээээээ э эээ ээээ. эээ ээээээээээээ ээээээээээээээ эээээээээ эээээээээ эээээээ эээээээээ N ээ эээээээээ 2, эээ N - ээээээээээ эээээээээ эээээээ.
ээээээ: эээээ э эээээээээээээ ээ эээээээээээ эээээээ эээээээ эээээээээ эээээ X.
program Poisk3a;
var A:array[1..100] of integer;
N,X,left,right:integer;
begin
read(N); {N<=100}
write('эээээээ эээээээээээээ ээ эээээээээээ ээээээ');
for i:=1 to N do read(A[i]);
read(X);
left:=1; right:=N;
{эээээ э ээээээ эээээээ эээээээээ эээ ээээээ}
while left<right do
begin
c:=(left + right) div 2;
{ээээээээ э эээээээээээ э эээээээ эээээээ}
if X>A[c] then
{ээээ ээээээ ээээээээээ ээ ээээээээ, ээ if X<A[c]}
left:=c+1
{ээээээээ ээээээ ээээээээ эээ ээээээээ, эээээ left}
else right:=c;
{ээээээээ эээээ ээээээээ э эээээээээ, эээээ right}
end;
if X=A[left] then {эээээ left = right, ээ ээ ээээээ = c}
write('ээээээ эээээээээ эээээ ',X,' э ээээээ A ээ ',left,' эээээ')
else write('ээ эээээ');
end.
ээээээ: эээээ э эээээээ, эээээээээээээ ээ эээээээээээ ээээ ээээ эээээээээ эээээээ, ээээээээээ эээээ э ээээээ ээээ ээээээ X.
program Poisk3b;
var A:array[1..100] of integer;
N,X,left,right:integer;
{эээээээ эээээээ эээээ ээээ эээээ a, эээээ a - эээээээээ ээээээээээ}
function Sum(a:integer):integer;
var s:integer;
begin
s:=0; a:=abs(a);
while a>0 do
begin
s:=s + a mod 10;
a:=a div 10;
end;
Sum:=s;
end;
begin
read(N); {N<=100}
write('эээээээ ээээээ, эээээээээээээ ээ эээээээээээ ээээ ээээ');
{ээээээээ, эээ N=4 : 122, -432, 88, 593}
for i:=1 to N do read(A[i]);
read(X);
left:=1; right:=N;
{эээээ э ээээээ эээээээ эээээээээ эээ ээээээ}
while left<right do
begin
c:=(left+right+1) div 2;
{ээээээээ э эээээээээээ э эээээээ эээээээ}
if X>=Sum(A[c]) then left:=c
{ээээээээ ээээээ ээээээээ э эээээээээ, эээээ left}
else right:=c-1;
{ээээээээ эээээ ээээээээ эээ ээээээээ, эээээ right}
end;
if X=Sum(A[left]) then {эээээ left = right, ээ ээ ээээээ = c}
write('эээээээээ эээээ э ээээээ ээээ=',X,' эээээ',A[left], ' эээээээээ э эээээээ A ээ ',left,' эээээ')
else write('ээ эээээ');
end.
эээээээээ ээээээээээ
ээээээээээ ээээээ ээээээээээ эээээээээээ э ээээээээээээ эээээээээ эээээээ ээ эээээээээээ эээ ээээээээ. ээээээ эээээээ ээээээээ ээээээээээээ эээээээээ эээээээ э ээээээээээээ э эээээээээ эээээээээ. ээээээ э ээээээээ ээээээ ээээээээ эээээээээ ээээээээ ээээээээээээ эээээээ, эээээээээээ эээээээ эээээээээ ээээээээ эээээээ. эээ эээээээ эээээээ ээээээээ эээээээээээээээ ээээээээ.
ээээээээээ эээээээээ ээээээ ээээээээээ. эээээ эээээээээээээ ээээээ ээ эээээээ ээ эээээээ ээээээ ээээээээээ ээ эээээээээээ эээээээ ээ N эээээ эээээ.
ээээээээээ эээээээ
ээээ ээээээ эээээээээээ э эээ, эээ эээээээээ ээээээээээээ эээээээ эээээээ э ээээээээ эээээээ э эээээээээ эээээээээ (э эээээээ N). эээээ, ээээээээ ээээээ эээээ эээээээээ э эээээээ ээ ээээээээээээээ э ээээээээ ээ N-1 эээээ, э эээ эээээ. ээээээээээ эээээ N-1 ээээээээ. эээээ ээээээ ээ ээээээээ, э эээээээ э эээээээ эээ ээ ээээээ, ээээээ э эээ эээээ эээээ. эээээ эээээээээ эээээээээээ эээээ ээээээ э эээээээээээээ эээээээ эээээээээ э ээээээээ. э ээээ ээээээ ээээээээээ эээээ ээээээээ эээээ N div 2.
ээээээээээээээ эээээээээ ээээээээээ эээээээ - ээээээээ эээээээ N*N, эээ ээээээ ээээээээээ эээ O(N*N). эээ эээээээээээ эээ, эээ ээээээээээ эээээээээ эээ ээээээ эээээээ эээээээээ эээээ N-1. эээээ N-2, N-3, э эээ эээээ ээ 1, эээээ: N*(N-1)/2.
ээээээ: ээээээээээ эээээээ ээ эээээээээээ эээээээ A ээ N эээээ эээээ.
program Sort_Vybor1;
var A:array[1..100] of integer;
N,i,m,k,x : integer;
begin
write('ээээээээээ эээээээээ эээээээ ');
read(N);
for i:=1