ТОЛЬКО ОТВЕТ И ЧТОБ БЫЛО ПРАВИЛЬНО

программа генерирует массив случайной длины от 10 до ста элементов с значениями в диапазоне 10..9999999

затем выводит все элементы у которых первая цифра больше второй.

var

   n : integer;

   d : array of integer;

   

begin

   n := random(10, 100);

   d := new integer[n];

   d := arrRandom(n, 10, 9999999);

   for var i := 0 to n-1 do begin

       var a1, a2 : integer;

       a1 := d[i];

       repeat

           a1 := a1 div 10;

       until a1 < 10;

       a2 := d[i] mod 10;

       if a1 > a2 then writeln(d[i]);

   end;

end.

Uses Crt;
const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of real;
i,j,k,c:integer;
s:real;
begin
clrScr;
    for i:=1 to n do
        begin
            writeln;
               for j:=1 to m do
                  begin
                     a[i,j]:=random(30);
                      write(a[i,j]:4);
                  end;
          end;
writeln;
for j:=1 to m do
  begin
      s:=0;k:=0;
          for i:=1 to n do
               if a[i,j]mod 2<>0 then
                   begin
                       s:=s+a[i,j];
                        k:=k+1;
                   end;
      if k<>0 then
         begin
            c:=c+1;
            b[c]:=s/k;
         end;
     end;
for i:=1 to c do
   write(b[i]:8:2);
readkey;
end.