Создать и вывести массив у(8), с элементами уk = ln(k) - 3k, где k = 1,2…. выполнить дополнительно своего варианта поиска данных по некоторому критерию (признаку). найти в массиве отрицательные элементы и заменить их значение на модуль числа. определить их количество .

Var
  y:array[1..8]of real;
  k,n:integer;
begin
writeln('Исходный массив:');
for k:=1 to 8 do
  begin
  y[k]:=ln(k)-3*k;
  if y[k]<0 then n:=n+1;
  write(y[k],' ');
  end;
writeln;
writeln('Количество отрицательных: ',n);
writeln('Измененный массив: ');
for k:=1 to 8 do
  begin
  if y[k]<0 then y[k]:=abs(y[k]);
  write(y[k],' ');
  end;
end.