Как сделать, чтобы здесь понижался степень: чтобы при каждом цикле программы, x^n > x^n-1 > x^n-2 и тд var x, a, z, s: real; n, i: integer; begin writeln('введите a, x: '); readln(a, x); write('введите n: '); readln(n); s: =0; for i: =1 to n do begin z: =(exp(ln(a)*i)*exp(ln(x)* вот здесь -> n)); s: =s+z; end; readln; writeln('ответ: ', s: 2: 2); end.

Вразделе описаний добавь еще одну переменную с типа integer и вместо последних 9-ти строк твоей программы должно быть: {заполняем массив b минимальными элементами каждой строки} for i  : = 1 to 5 do   begin           for j  : = 1 to 5 do  if a[i,j] < b[i] then b[i] : = a[i,j];         write(b[i], ' ')   end; writeln; {сортируем массив b} for i : = 1 to 4 do   for i+1 : = 1 to 5 do       if b[i] < b[j] then         begin               c : = b[i];               b[i] : = b[j];               b[j] : = c         end; {выводим отсортированный массив на экран} for i : = i to 5 do write(b[i], ' '); writeln end.

Предполагается, что первым числом подается количество n чисел на ввод, а затем эти же n чисел. тогда код выглядит вот так. #include < iostream> #include < vector> #include < functional> #include < algorithm> using namespace std; int main() {       int n;       vector< int> x;       cin> > n;       x.resize(n);       while( cin> > x[n];       std: : unique(x..;       cout< < x.size();       return 0; }