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

Формулировка задачи:

Определить количество нечетных элементов в массиве и вывести их индексы

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

Решение задачи: «Задача. Провести указанные вычисления с одномерным массивом и произвести сложный поиск»

Листинг программы

uses crt;
var y:array[1..8] of real;
    k,nech:integer;
begin
nech:=0;
for k:=1 to 8 do begin
y[k]:= ln(k) - 3*k;
write(y[k]:6:1,'(',k,')');
If Round(y[k]) mod 2 <> 0 then begin
inc(nech);
end; end;
writeln;
write('Г€Г*Г¤ГҐГЄГ±Г» Г*ГҐГ·ВёГІГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў: ');
for k:=1 to 8 do begin
If Round(y[k]) mod 2 <> 0 then begin
write(k,' ');
end; end;
writeln;
write('ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г*ГҐГ·ВёГІГ*Г»Гµ: ',nech);
end.

Объяснение кода листинга программы

Объявлены переменные:
- y: массив из 8 элементов типа real;
- k: целочисленная переменная для цикла;
- nech: целочисленная переменная для подсчета нечетных элементов.
Инициализируется переменная nech значением 0.
Запускается цикл по всем элементам массива y от индекса 1 до 8.
Каждый элемент массива y вычисляется как ln(k) - 3*k и записывается в соответствующую ячейку массива.
Если Round(y[k]) mod 2 не равно 0, то переменная nech увеличивается на 1.
После завершения цикла выводится строка с элементами массива y, при этом нечетные элементы отделяются символом ' '.
Выводится значение переменной nech, которое представляет собой количество нечетных элементов в массиве.