Задача по массивам. Срочно решить

[Baby33]

Еще одна задачка. Очень надо! Заранее спасибо!!!!

[alex_fcsm]

var z,r,q:array[1..10] of real;
    i:integer;
    z1,r1:real;
    
begin
for i:=1 to  10 do
 begin
   z[i]:=random(10);
   r[i]:=random(10);
 end;
z1:=0;r1:=0;
for i:=1 to 10 do
 begin
  z1:=z1+z[i];
  r1:=r1+r[i];
 end;
z1:=z1/10;r1:=r1/10;
for i:=1 to 10 do
 begin
 q[i]:=(z1-r1)*(z[i]-r[i]);
 write(q[i]:6:1);
 end;
end.

[Baby33]

Alex, спасибо большое!!!!!!
Надеюсь сегодня получить зачет!!!!))))