Вопрос

[KIRILOW]

Даны действительные числа a(1),a(2),a(3),...a(30)
Вычислить y=a(1)*a(30)-a(2)-a(29)+a(3)*a(28)-...-a(30)*a(1)

var
  y: real;
  n: integer;

begin
  readln(n);
  //ввод аi чисел
  if odd(n) then
  begin
    y := a[n div 2 + 1] * a[n div 2 + 1];
    if odd(n div 2) then
      y := -y;
  end
  else
    y := 0;
  writeln(y);
end.

Есть ли ещё варианты написания программы на данное задание?

[Stilet]

А чем этот не угодил?

[p51x]

А у вас программа то и не работает.

Цикла нет, индексы неправильные...

[KIRILOW]

Поможете решить эту проблему?