Использование одномерных массивов

[You-Lol]

Добрый вечер, помогите решить:
Даны два вектора x={xn} и y={yn} - проверить на ортогональность эти два вектора.
Зарание спасибо!

[WorldMaster]

А самостоятельно совсем что-ли никак??
С интересом жду тем типа:
"Помогите решить: 2+2*2. Объяснить решение подробно. "

Пример вашей задачи:
Проверить являются ли вектора a = {3; -1} и b = {7; 5} ортогональными.
Решение:
Найдем скалярное произведение этих векторов
a · b = 3 · 7 + (-1) · 5 = 21 - 5 = 16
Ответ: так как скалярное произведение не равно нулю, то вектора a и b не ортогональны.

Курс по паскалю

[You-Lol]

var
i,j,z,n,m:integer;
 
 A:array[1..99] of integer;
B:array [1..99] of integer;
 
begin
writeln('Введите количество элементов в векторах,( количество элементов в векторах должно быть равным!!!)');
read(n,m);
writeln('Координаты вектора А= ');
for i:=1 to n do
readln (A[i]);
writeln('Координаты вектора B= ');
for j:=1 to m do
readln (B[j]);
for i:=1 to n do
for j:=1 to m do
Begin
z:=(A[i]*B[j]);
end;
if z=0 then 
writeln ('Векторы ортогональны',' ' ,z)
else
writeln('Векторы не ортогональны',' z= ',z);
end.

Помогите исправить ошибку

[newerow1989]

Конечно я не математик, но попрововать изменить:

for i:=1 to n do
Begin
z:=z+(A[i]*B[i]);
end;

[You-Lol]

Попробовал, выдает другой ответ но не правильный. Может есть еще варианты?

По идее должно быть примерно так :

z:=A[i]*B[j]+A[i+1]*B[j+1]

И чем больше у меня n тем больше должно быть A[i+1]*B[j+1] умножение их поочередных элементов, а затем их сумма.

Как запустить это в цикл?

[newerow1989]

var
i,z,n:integer;

 A:array[1..99] of integer;
B:array [1..99] of integer;

begin
writeln('Введите количество элементов в векторах,( количество элементов в векторах должно быть равным!!!)');
read(n);
writeln('Координаты вектора А= ');
for i:=1 to n do
readln (A[i]);
writeln('Координаты вектора B= ');
for i:=1 to n do
readln (B[i]);
z:=0;
for i:=1 to n do
Begin
z:=z+(A[i]*B[i]);
end;
if z=0 then 
writeln ('Векторы ортогональны',' ' ,z)
else
writeln('Векторы не ортогональны',' z= ',z);
Readln;
end.

У меня ортогональность получается так:
Кол-во элементов 2
Коорд. А: 3 -3
Коорд. В: 7 7

[You-Lol]

Вообще супер) спасибо!

[newerow1989]

Пожалуйста!