Итак...
Количество сравнений, это сколько раз твое число приравнивается к другим. Смотря на твою последовательность ты после сортировки массива сравниваешь число 2 со своим массивом. Приравниваешь его к первому числу это у тебя единица. Число один не совпадает с даным по условию числом, значит двигаемся дальше, и это уже будет другое сравнение. И так делаем пока не найдем число "2". Так как это число у тебя на втором месте, количество сравнений будет 2.
Если бы ты искал например число 4 количество сравнений было бы 5, так как число 4 стоит пятым в очереди.
Взять 2 миски-взять мешок с зерном-взять зёрнышко-цветное?-да-в серую коробку
|
нет
|
в белую коробку
робот берёт фасолину-цветная?-нет-в белую
|
да
|
в в серую коробку
допустим робот ложит всё внутреннее мешка на стол и когда щупает что ничего на столе нет останавливается!
Var
S,C,C1,R:string;
i,j,m,n,k:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
i:=1;
LowerCase(S);
While S[i]<>' ' do
Begin
C:=C+S[i];
i:=i+1
End;
i:=i+1;
For i:= i to Length(S) do
if (S[i]<>' ')and(i<>Length(S)) then C1:=C1+S[i]
else
Begin
k:=1;
j:=1;
For j:= 1 to Length(C1) do
Begin
n:=0;
For m:= 1 to Length(C) do
if C1[j] = C[m] then n:=1;
if n = 0 then k:=0
End;
if (k = 1)and(C1 <> '') then R:=R+C1+' ';
C1:='';
End;
if R = '' then WriteLn('Нет')
else WriteLn(R)
End.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
if ReadSeqIntegerWhile(t->t<>0).Any(t->(t<100) or (t>999)) then
Writeln('No')
else Writeln('Yes')
end.
<u>Пример</u>
35 717 405 225 0
No
Const n=3;
var a:array[1..n,1..n] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=i+1 to n do
begin c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c; end;
writeln('Транспонированная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходная матрица:
1 4 4
8 3 9
8 2 1
Транспонированная матрица:
1 8 8
4 3 2
4 9 1