n=9
s=n
z=A(0)
FOR i=1 to n
IF A(i)=z THEN s=s-1
NEXT i
k := 0;
for i := 0 to 9 do begin
m := A[i] mod 10;
if A[i] >= A[m] then begin
k := k + 1;
A[m] := A[i]
end
end;
k = 0;
for (i = 0; i < 10; i++) {
m = A[i] % 10;
if (A[i] >= A[m]){
k++;
A[m] = A[i];
}
}
K = 0
FOR I = 0 TO 9
M = A(I) MOD 10
IF A(I) >= A(M) THEN
K = K + 1
A(M) = A(I)
END IF
NEXT I
k = 0
for i in range(10) :
m = A[i] % 10
if A[i] >= A[m] :
k += 1
A[m] = A[i]
c = 0
FOR i = 1 TO 9
IF A(i-1) < A(i) THEN
c = c + 1
t = A(i)
A(i) = A(i-1)
A(i-1) = t
END IF
NEXT i
c = 0
for i in range(1, 10):
if A[i-1] < A[i]:
c = c + 1
A[i-1], A[i] = A[i], A[i-1]
c := 0
нц для i от 1 до 9
если A[i-1] < A[i] то
c := c + 1
t := A[i]
A[i] := A[i-1]
A[i-1] := t
все
кц
c := 0;
for i := 1 to 9 do
if A[i-1] < A[i] then
begin
c := c + 1;
t := A[i];
A[i] := A[i-1];
A[i-1] := t;
end;
c = 0;
for (int i = 1; i < 10; i++)
if (A[i-1] < A[i]){
c++;
t = A[i];
A[i] = A[i-1];
A[i-1] = t;
}