Дан одномерный массив A. Вычислить по формуле

[KIRILOW]

Даны действительные числа а(1),а(2),...а(30)
Вычислить y=a(1)*a(20)-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.

[Sciv]

Вот что у меня получилось:

Рад за Вас. А в чем вопрос?

y := a[n div 2 + 1] * a[n div 2 + 1];

мне кажется, или у Вас тут вместо исходной формулы - обычное возведение в квадрат?

Кроме того, сумма не считается. Считаются только отдельные слагаемые (y)

Вычислить y=a(1)*a(20)-a(2)*a(29)+a(3)*a(28)-..-a(30)*a(1)

В первом произведении не опечатка ли? Имхо должно быть а(1)*а(30).

Вообще это решается циклом, у Вас его нет.

  readln(n);
  //ввод аi чисел

  j:=30;
  sum:=0;
  for i:=1 to 30 do begin
    y:=a[i]*a[j];
    if odd(i) then y:=-y;
    sum:=sum+y;
    inc(j);
  end;

[DiemonStar]

Вычислить y=a(1)*a(20)-a(2)*a(29)+a(3)*a(28)-..-a(30)*a(1)

а там точно a(20)? или всё-же a(30)?

если a(30), то смысла вычислять 0 нет никакого. Иначе же y = a(1)*(a(20)-a(30))

[Sciv]

если a(30), то смысла вычислять 0 нет никакого. Иначе же y = a(1)*(a(20)-a(30))

Кстати, да, верно подмечено