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

var  y:array[1..8]of real;  k,n:integer;beginwriteln('Исходный массив:');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.