Ребят помогите плиз сделать прогу (хотяб идею) буду оч благодарен

[ANDREI_NN]

Завтра экзамен в 8 а я не знаю как её сделать((

[ANDREI_NN]

................................... ........

[ANDREI_NN]

................................... ....

[ANDREI_NN]

http://rapidshare.com/files/18147525...ge002.jpg.html

[Suzukava]

[Suzukava]

вот теперь нормально
P.S. таже самая картинка тока качать ненадо

[puporev]

Уж не знаю какую тут идею надо, формулу переписать. Думать Вам просто лень. Объяснять не буду, просто смотрите на формулу и код программы, один к одному, просто все суммы оформлены примитивными функциями.

uses crt;
const n=20;
type Tmas=array[1..n]of real;
procedure Vvod(var a:Tmas);
var i:integer;
begin
for i:=1 to n do
  begin
    a[i]:=5*random;
    write(a[i]:5:2);
  end;
writeln;
end;
function Sum(a:Tmas):real;
var i:integer;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+a[i];
Sum:=s;
end;
function SumPrz(a,b:Tmas):real;
var i:integer;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+a[i]*b[i];
SumPrz:=s;
end;
function SumQvd(a:Tmas):real;
var i:integer;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+a[i]*a[i];
SumQvd:=s;
end;
var x,y:Tmas;
    z:real;
begin
clrscr;
randomize;
writeln('Massiv X:');
Vvod(x);
writeln('Massiv Y:');
Vvod(y);
z:=(n*SumPrz(x,y)-Sum(x)*Sum(y))
/sqrt((n*SumQvd(x)-sqr(Sum(x)))*(n*SumQvd(y)-sqr(Sum(y))));
write('Z(x,y)=',z:0:5);
readln
end.

[ANDREI_NN]

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