Создать и вывести массив У (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.