Для двух векторов вычислить значение выражения по формуле (Паскаль)

[prs58]

Пробовал,не получалось составить программу для этой задачи, поэтому прошу помощи:

Для векторов a и b размерностью n=10 вычислить значение y по формуле

[Serge_Bliznykov]

формула очень мелкая. нужно только догадываться..
но задача, по сути - очень простая:

   y := 0;
   for i:=1 to 10 do 
     if odd(i) then y := y - abs(a[i]-b[i])
     else y := y + abs(a[i]-b[i]);

   WriteLn('Значение выражения Y=',y);

и всё.

[prs58]

То есть программа будет выглядеть полностью вот так?

uns crt;
const
n:=10;
var
a: array [1..n] of integer;
i, S:integer;
ard:real;
begin
writeln ('ввести значение y по формуле')
y := 0;
   for i:=1 to 10 do 
     if odd(i) then y := y - abs(a[i]-b[i])
     else y := y + abs(a[i]-b[i]);

   WriteLn('Значение выражения Y=',y);

[prs58]

Serge_Bliznykov

Правильно я написал?

[Serge_Bliznykov]

нет.
во-первых, Вам нужно описать ДВА массива (а и b)

во-вторых, нужно обеспечить ввод чисел в этим массивы (каким Вам угодно способом, например, в цикле через Read()

в-третьих, Вы описали НЕ НУЖНЫЕ переменные (S и ard), зато забыли описать нужные - где описание Y ?!

[prs58]

uns crt;
const
n:=10;
var a, b: array [1..n] of integer;
Y:real;
begin
writeln ('ввести значение y по формуле')
read(a);
read(b);
y := 0;
   for i:=1 to 10 do 
     if odd(i) then y := y - abs(a[i]-b[i])
     else y := y + abs(a[i]-b[i]);

   WriteLn('Значение выражения Y=',y);

Теперь так?Сделал ввод a и b через read.

Описал два массива a и b и описал переменную Y.

[prs58]

Serge_Bliznykov

Или что-то все равно не так сделал?

[prs58]

uses crt;
const
n=10;
var a,b:array [1..10] of integer;
i:integer;
y:real;
begin
write ('ввести значение y по формуле:');
read(a[i]);
read(b[i]);
y:=0;
for i :=1 to 10 do
if odd(i) then y := y - abs(a[i]-b[i])
else y := y + abs(a[i]-b[i]);
WriteLn('Значение выражения Y=',y);
end.

Вот еще как получилось,в программе проверял все проходит нормально, на как начинаю её запускать сразу вылетает ошибка

[Zer0]

write ('ввести значение y по формуле:');
read(a[i]);
read(b[i]);

у вас цикл для i не объявлен, соответственно он пытается обработать a[0], b[0], что выходит за границы массива

[Serge_Bliznykov]

const
   n=10;
var a,b:array [1..n] of integer;
   i:integer;
   y:longint;
begin
  WriteLn ('введите значение векторов:');
  for i:=1 to n do begin
    Write('A',i,':'); 
    read(a[i]);
    Write('B',i,':'); 
    readln(b[i]);
  end;

  y:=0;
  for i :=1 to n do
    if odd(i) 
        then y := y - abs(a[i]-b[i])
        else y := y + abs(a[i]-b[i]);

   WriteLn('Значение выражения Y=',y);
   Readln;
end.

p.s. данное выражение оперирует только с двумя текущими элементами массивов,
поэтому, можно обойтись вообще ОДНИМ циклом - в том же цикле, где идёт чтение элементов, там же и вычислять Y