Цикл Паскаль

[Rimean]

О.О

[p51x]

И? Как пробовали? Какие ошибки выдал компилятор?

[Grisaia]

program Compute;

const
   n=5;

var
  
   k, i: integer;
   b, a: array [1..n] of real;

begin
  
   writeln('Введите ', n, ' целых чисел');
   writeln();
   
   for k := 1 to n do begin
      write('a[',k,']=');
      readln(a[k]);
   end;
   
   writeln();
   for i := 1 to n do begin
      b[i] := 0;
      for k := 1 to n do
        // b[i] := b[i] + exp(i * ln(a[k]));
   end;
  
   for i := 1 to n-1 do
      write(b[i], ', ');
      
   write(b[n]);     
      
   writeln();
   writeln();
      
end.

Не могу понять как посчитать без экспоненты

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[p51x]

Вам же написали "использовать цикл for". x ^ 2 = x * x, x ^ 3 = x * x * x и т.д.

[Serge_Bliznykov]

Сообщение от p51x

Вам же написали "использовать цикл for"

простите, а кому "Вам"? Rimean или Grisaia ?
это разные люди и задачи тоже, судя по всему, чуть отличаются!

[p51x]

Без разницы. Задачи может и отличаются,а затык пока только в одном месте - подсчет степени без экспоненты.

А, если Grisaia, не ТС, то ее сообщение должно быть выпилено и ей штраф за захват чужой темы.