Исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный момент известно положение исполнителя и направление его движения. у исполнителя существует две команды: вперёд n (где n — целое число), вызывающая передвижение черепашки на n шагов в направлении движения; направо m (где m — целое число), вызывающая изменение направления движения на m градусов по часовой стрелке. запись повтори k [команда1 команда2 командаз] означает, что последовательность команд в скобках повторится k раз. черепашке был дан для исполнения следующий алгоритм: повтори 10 [направо 36 вперёд 20 направо 36]. какая фигура появится на экране?

#include <iostream>

using namespace std;

int main()
{
    int n;
    int counter = 0;

    cout << "Vvedite kilichestvo elementov: " << endl;
    cin >> n;
    int *massiv = new int[n];
    for (int i = 0; i < n; i++) {
        cout << "Vvedite " << i + 1 << " element: ";
        cin >> massiv[i];
        if (massiv[i] % 2 != 0) {
            counter += 1;
        }
    }
    cout << "Kolichestvo nechetnqh elementov = " << counter << endl;

    return 0;
}

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrGen(20,i->i+1); a.Println;
end.

Пример
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

№2

begin
  var a:=ArrRandom(20,-99,99); a.Println;
  Writeln('П = ',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.

Пример
92 6 39 -33 34 -22 -97 52 58 55 -42 -59 -15 -19 -91 76 -69 82 -19 -69
П = -309778851231495493804367495884800

№3

begin
  var a:=ArrRandom(40,-99,99); a.Println;
  Writeln('Номер максимального элемента = ',a.IndexMax+1)
end.

Пример
-30 85 -57 -5 -64 20 48 83 19 -32 -56 10 21 83 78 20 89 -5 71 -78 -59 88 -10 -94 -80 -58 24 37 -1 66 -71 -9 43 55 -14 -79 -33 -19 -34 68
Номер максимального элемента = 17