Question

Кез- келген бір өлшемді А(10) массивінің оң элементтерін екі есе кемітіңдер, ал теріс элементтері болса, онда оларды индекстерінің мәнімен ауыстырыңдар.

Answer 1

Pascal синтаксисін ұмытыңқырап тұрмын, сонда да түсінесің деп ойлаймын:

for i to 10 do

     if (A[i] > 0)

         A[i] = A[i] / 2

    else

         A[i] = i;