З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;

Const

N = 39;

Var

X:array[1 ... N] of integer;

i, j, k:integer;

Begin

Randomize;

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.