Создать

массив у, элементы которого вычисляют по формуле уk = ln (k) -

3, где k = 1, 2, ..., 10. Построить массив g, состоящий из отрицательных

элементов массива у. Найти в массиве отрицательные элементы и заменить их

значение на модуль числа. Определить их количество

Var

y:array[1 ... 10]of real;

g:array of real;

i, j, n:integer;

begin

for 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.