Создать
массив у, элементы которого вычисляют по формуле уk = ln(k) -
3, где k = 1, 2, ..., 10. Построить массив g, состоящий из отрицательных
 элементов массива у. Найти в массиве отрицательные элементы и заменить их
значение на модуль числа. Определить их количество

var  y:array[1..10]of real;  g:array of real;  i,j,n:integer;beginfor i:=1 to 10 do  begin  y[i]:=ln((random(500)+1)/10)-3;  if y[i]<0 then n:=n+1;  write(y[i],' ');  end;writeln;writeln('Количество отрицательных: ',n);writeln('Измененный массив: ');setlength(g,n);for i:=1 to 10 do  begin  if y[i]<0 then    begin    g[j]:=y[i];    y[i]:=-y[i];    j:=j+1    end;  write(y[i],' ')  end;writeln;writeln('Массив g:');for i:=0 to n-1 do write(g[i],' ')end.