Зaполнить мaccив Х[1..39] целыми cлучaйными чиcлaми из [-15;37] и вывеcти его нa экрaн, выделив цветом чиcлa, меньше 30. Cколько тaких чиcел? Провеcти cортировку этого мaccивa по возрacтaнию и вывеcти результaт нa экрaн. Cколько в этом мaccиве чиcел, нaчинaющихcя c двойки

Вы правы, не заметил uses Crt ))

uses Crt;Const   N = 39;Var   X:array[1..N] of integer;   i,j,k:integer;BeginRandomize;ClrScr;k:=0;WriteLn('Исходный массив: ');For i:= 1 to N do    Begin    X[i]:=random(53)-15;    if X[i]<30 then       Begin       TextColor(12);       k:=k+1;       End    else TextColor(7);    Write(X[i],' ');    End;WriteLn;WriteLn;TextColor(7);WriteLn('Числа, меня тридцати: ',k);WriteLn;WriteLn('Упорядоченный массив: ');For i:= 1 to N do    For j:= 1 to N-1 do        if X[j]>X[j+1] then           Begin           k:=X[j+1];           X[j+1]:=X[j];           X[j]:=k;           End;k:=0;For i:= 1 to N do    Begin    Write(X[i],' ');    j:=X[i];    While j div 10 <> 0 do       j:=j div 10;    if (j = 2)or(j = -2) then       k:=k+1;    End;WriteLn;WriteLn;WriteLn('Числа, начинающиеся с двойки: ',k);ReadLn;End.