Создать массив у, элементы которого вычисляют по формуле уk = ln(k) - 3, где k = 1, 2,...

Question

Создать
массив у, элементы которого вычисляют по формуле уk = ln(k) -
3, где k = 1, 2, ..., 10. Построить массив g, состоящий из отрицательных
элементов массива у. Найти в массиве отрицательные элементы и заменить их
значение на модуль числа. Определить их количество

Comments

Тут с динамическим массивом решать надо или нет?

---

Провести указанные вычисления с одномерным массивом и произвести сложный поиск

---

Динамические массивы проходили? Можно использовать?

---

Да проходили.

---

Ладно, но все завтра))

---

Спасибо вам большое))

Answer 1

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;<br>  write(y[i],' ');
  end;
writeln;
writeln('Количество отрицательных: ',n);
writeln('Измененный массив: ');
setlength(g,n);
for i:=1 to 10 do
  begin
  if y[i]<0 then<br>    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.

Comments

g:array of real; ругается..пишет,что нужна квадратная скобка

---

Значит, твоя версия паскаля не поддерживает работу с динамическими массивами. Ты с ними хоть раз работала на своей машине?

---

Да. и он постоянно ругался на эту скобку)