Подсчёт обменов в массиве

Бейсик

Python

c = 0

FOR i = 0 TO 8

IF A(i) > A(9) THEN

c = c + 1

t = A(i)

A(i) = A(9)

A(9) = t

END IF

NEXT i

c = 0

for i in range(9):

if A[i] > A[9]:

c = c + 1

t = A[i]

A[i] = A[9]

A[9] = t

Алгоритмический тіл

Паскаль

c := 0

нц үшін i от 0 до 8

если A[i] > A[9] то

c := с + 1

t := A[i]

A[i] := A[9]

A[9] := t

все
кц

c := 0;

for i := 0 to 8 do

if A[i] > A[9] then

begin

c := c + 1;

t := A[i];

A[i] := A[9];

A[9] := t;

end;

Си

c = 0;

for (i = 0; i < 9; i++)

if (A[i] > A[9])

{

c++;

t = A[i];

A[i] = A[9];

A[9] = t;

}