Динамический массив

[dimok5]

Разработать программу вычисления значения выражения следующего вида:
X1*Xn+X2*Xn-1+...+Xn*X1
При этом значения X1, X2, ..., Xn вводятся с клавиатуры и динамически размещаются в оператив-ной памяти либо в форме массива, либо в форме стека (или двух стеков, один из которых реверсирован по отношению к другому)

[RomiKon]

const
  n = 100
var
  a: array[1..n] of Integer;
  i, s: Integer;
begin
  for i:=1 to n do readln(a[i]);
  for i:=1 to n do  s:=s+a[i]*a[n-i+1];
  writeln(s);
end;

динамическое размещение не стал делать, так как не знаю какой язык программирования тебе нужно использовать. На Delphi например нужно просто увеличивать длину массива на один при каждом новом вводе значения при помощи функции SetLength(massiv, novoe_kolichestvo_elementov)

[dimok5]

Спасибо. Насчёт языка программирования: этот раздел форума называется "Паскаль" - догадаться было не трудно=)

[RomiKon]

Извиняюсь, тупанул сильно =)