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

[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.

[compiler]

вот, на основе первого твоего кода...

uses CRT;
type
        mas=array[1..50] of real;
var
        Sx,Sy,r:real;   //средние для каждого вектора и ресультат
        X,Y:mas;        //векторы
        f,ff:integer;   //счетчик / количество элементов векторов
begin
        clrscr;

        Sx:=0;
        Sy:=0;  //почему у тебя была единица?
        writeln('vvedite n');
        readln(ff);
        for f:=1 to ff do begin         //читаем первый вектор
                write('X[',f,']=');
                readln(X[f]);
        end;

        for f:=1 to ff do begin         //второй вектор
                write('Y[',f,']=');
                readln(Y[f]);
        end;

        for f:=1 to ff do begin         //находим средне арифмитич.
                Sx:=(Sx+(X[f])/ff);     //делим на количество ВСЕХ членов
                Sy:=(Sy+(Y[f])/ff);
        end;

        if Sy=0 then writeln('delenie na 0')
        else begin
                r:=(Sx/Sy);
                writeln®
        end;
end.

обрати внимания что у векторов одинаковый размер...

[Michael_Rybak]

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги Исправляем

Сообщение отредактировано: Michael_Rybak - 21.12.2007 5:18