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