помогите решить задачу с массивами..

[zLoiD]

требуется помощь с решением задачи
заранее Вам благодарен

[zLoiD]

ребят, помогите пожалуйста

[IT-man]

где брать a и b и причем там вектор z?

[zLoiD]

а и б это максимальные величины, на сколько я понял

[IT-man]

uses math;
var i:integer;
x:array[1..100] of Real;
s:array[1..100] of Real;
z:array[1..100] of Real;
n:integer;
a,b:Real;
begin
Writeln('n=');
Readln(n);
a:=-99999;
b:=-99999;
for i:=1 to n do
begin
x[i]:=Random(20)-10+random(100)/100;
z[i]:=Random(20)-10+random(100)/100;
if x[i]>a then a:=x[i];
if z[i]>b then b:=x[i];
end;
Writeln('array x');
for i:=1 to n do
write(x[i]:6:2);
Writeln;
Writeln('======================');
Writeln('array z');
for i:=1 to n do
write(z[i]:6:2);
Writeln;
Writeln('======================');
Writeln('array s');
for i:=0 to n -1 do begin
s[i+1]:=arctan(a)/b*i;
write (s[i+1]:6:2)end;
readln;
end.

[zLoiD]

я там в формуле ошибку сделал, вместо *Х нужно *i

[IT-man]

Исправлено

[zLoiD]

спасибо большое!