Создать и вывести массив У(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]  write(y[k], );
  end;
writeln;
writeln(Количество отрицательных: ,n);
writeln(Измененный массив: );
for k:=1 to 8 do
  begin
  if y[k]  write(y[k], );
  end;
end.