Всем привет! =) Работаю в Delphi Надеюсь мне тут помогут.Вывести с клавиатуры массив X, содержащий 20 элементов. Вычислить значения функции y=0,5 LN x при значениях аргумента, заданных в массиве X и поместить их в массив Y. Най...
Всем привет! =) Работаю в Delphi Надеюсь мне тут помогут.
Вывести с клавиатуры массив X, содержащий 20 элементов. Вычислить значения функции y=0,5 LN x при значениях аргумента, заданных в массиве X и поместить их в массив Y. Найти в массиве Y максимальный элемент, целая часть которого кратна 3 и его индекс. На экран вывести массивы X,Y и индекс найденного элемента.
p.s Можно делать и на паскале, код ведь все равно одинаковый
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 20;
type
V = array[1..n] of real;
var
x, y: V;
i, k: integer;
amax: real;
begin
writeln('Введите ', n, ' положительных элементов массива Х');
amax := -1E20;
k := 0;
for i := 1 to n do
begin
read(x[i]);
{защита от дурака}
if x[i] < 0 then x[i] := abs(x[i])
else if x[i] = 0 then x[i] := 1;
{сразу же находим значения элементов массива у и заодно нужный максимум}
y[i] := 0.5 * ln(x[i]);
if (y[i]>=3) and ((Trunc(y[i]) mod 3) = 0) and (amax
Не нашли ответ?
Похожие вопросы