Создать и вывести массив У(8), с элементами уk = ln(k) - 3k, где k = 1,2…. Выполнить...

Question

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

Answer 1

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;<br>  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]);<br>  write(y[k],' ');
  end;
end.