Одномерные массивы

[KAST VOX]

Люди, помогите, пожалуйста...
Для векторов a и b размерностью n=10 вычислить значение y по формуле:

[Stilet]

Попытки? Наработки? Хотя бы ввод векторов.

[Aleksandr H.]

Основной принцип такой

[KAST VOX]

Так получается начало и ввод значений.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
   n=10;
var a,b:array [1..n] of integer;
   i:integer;
   y:longint;
begin
  WriteLn ('Vvedite znachenie vectorov:');
  for i:=1 to n do begin
    Write('A',i,':');
    read(a[i]);
    Write('B',i,':');
    readln(b[i]);
  end;
А так получилась сама формула. 
y:=1;
z:=1;
for i:=1 to 10 do
 begin
  z:=-z;
  y:=y*(1+z*abs(a[i]-b[i]));
 end;

[Aleksandr H.]

z:=-z

забавно

Ну все, осталось вывести у - задача решена

з.ы
замени

Write('A',i,':');
    read(a[i]);

на

Write('A',i,':');
    readLN(a[i]);

[KAST VOX]

Вроде так получается?

const
   n=10;
var a,b:array [1..n] of integer;
   i:integer;
   y:longint;
begin
  WriteLn ('Vvedite znachenie vectorov:');
  for i:=1 to n do begin
    Write('A',i,':');
    readLn(a[i]);
    Write('B',i,':');
    readLn(b[i]);
  end;
y:=1;
for i:=1 to 10 do
 begin
  y:=y*(1+(-1)*abs(a[i]-b[i]));
 end;
 WriteLn('Znachenie virazenia Y=',y);
   Readln;
end.

[Aleksandr H.]

не так!

for i:=1 to 10 do
begin
y:=y*(1+(-1)*abs(a[i]-b[i]));
end;

надо заменить на

for i:=1 to 10 do
 begin
  z:=-z;
  y:=y*(1+z*abs(a[i]-b[i]));
 end;

(-1)^i надо учитывать и Z в разделе VAR прописать

[KAST VOX]

А как хоть z в var записать? С помощью real? Просто когда так прописываю, он другие косяки находит.

[Stilet]

С помощью real?

Достаточно будет integer.

он другие косяки находит.

Ну не стесняйся )
Показывай свои косяки.

[KAST VOX]

Я понял, главный косяк у меня в голове... Всем спасибо за помощь, выручили.