Посмотрите пожалуйста Опции

[appleee]

Отношение Sx/Sy , где Sx,Sy-средние арифметические элементво вектора X и Y соответственно.


uses CRT;
type
mas=array[1..50] of real;
var
c,c1:char;
x,y,Sx,Sy,r:real;
kk, nn, n, i, k:byte; a1,b1,s:real;
A:mas;
f,ff:integer;
begin
clrscr;
Sx:=0;
Sy:=1;
writeln('vvedite n');
readln(ff);
for f:=1 to ff do
begin
write('A[',f,']=');
readln(A[f]);
end;

begin
for f:=1 to ff do
begin
Sx:=(Sx+(A[f])/f);
Sy:=(Sy+(A[f])/f);
end;
if Sy=0 then writeln('delenie na 0')
else
begin
r:=(Sx/Sy);
writeln®;
readln
end;
end;
end.

Добавлено через 9 мин.
или вот так только всё равно результат не тот
uses CRT;
type
mas=array[1..50] of real;
mas2=array[1..50] of real;
var
c,c1:char;
x,y,Sx,Sy,r:real;
kk, nn, n, i, k:byte; a1,b1,s:real;
A:mas;
B:mas2;
f,ff:integer;
begin
clrscr;
Sx:=0;
Sy:=1;
writeln('vvedite n');
readln(ff);
for f:=1 to ff do
begin
write('A[',f,']=');
readln(A[f]);
write('B[',f,']=');
readln(B[f]);
end;

begin
for f:=1 to ff do
begin
Sx:=(Sx+(A[f])/f);
Sy:=(Sy+(B[f])/f);
end;
if Sy=0 then writeln('delenie na 0')
else
begin
r:=(Sx/Sy);
writeln®;
readln
end;
end;
end.