Обработка массива обменами

Бейсик

Python

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

t = A[i]

A[i] = A[i-1]

A[i-1] = t

Алгоритмический язык

Паскаль

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 (i = 1; i < 10; i++)

if (A[i-1] < A[i])

{

c++;

t = A[i];

A[i] = A[i-1];

A[i-1] = t;

}