Сформировать массив размером 4Х4, заполнить случайными числами от 0 до 100

В программке употребляется одномерный целочисленный массив A с индексами от 0 до 9. Значения частей равны 6; 9; 7; 2; 1; 5; 0; 3; 4; 8 соответственно, т.е. A[0] = 6; A[1] = 9 и т.д.

Обусловьте значение переменной c после исполненья последующего куска программки, записанного ниже на разных языках программирования. Распечатать значения массива в строчку.

c := 0;

for i := 1 to 9 do

  if A[i-1] lt; A[i] then begin

    c := c + 1;

    t := A[i];

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

    A[i-1] := t

  end;