Составьте программу которая формирует массив из 8 целых чисел [0, 10] и выводит элементы массива в строку. затем находит произведение нечётных элементов и выводит результат

program fantscrin;

  const n = 8;

  var a: array [1..n] of integer;

      i,s: integer;

begin

  for i: =1 to n do

    a[i]: = random(11)+1;

  for i: =1 to n do

    write(a[i], '   ');

  p: =1;

  for i: =1 to n do

    if (i mod 2 < > 0) then p: =p*a[i];  

  writeln('');

  writeln('произведение = ',p);

end.

#include <iostream>
#include <array>
#include <random>
using namespace std;

mt19937 gen { random_device()() };
uniform_int_distribution<> uid(-20, 20);

constexpr size_t N = 5;

int main()
{
    int sum = 0;
    array<array<int, N>, N> a;
   
    for (auto &i : a) {
        for (auto &j : i) {
            if ((j = uid(gen)) < 0) {
                sum += j;
            }
            cout << j << "\t";
        }
        cout << endl;
    }
    cout << endl;
    a[1][2] += sum;
    for (const auto &i : a) {
        for (const auto &j : i) {
            cout << j << "\t";
        }
        cout << endl;
    }
    cout << "Sum: " << sum << endl;
}

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.