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