массивы и рандомные числа Опции

[memfis]

Уважаемые форумчяне пожалуйста помогите правильно решить задачу а то сижу на экзамене и нажна срочно помошь. Я понимаю, что это медвежья услуга, но войдите в положение не разобрался в теме.
Условие:
Сформироватьь три последовательности из десяти случайных чисел каждая. Значения чисел -10<=n<50. Определить среднее арифметическое каждой такой последовательности.

[Гость]

ребят ну помогите экзамен тот идтё.

[Ozzя]

В этой формуле не уверен
random(50-10)-10;

Код

var
i:Integer;
sum1,sum2,sum3:real;
a1,a2,a3:array [1..10] of Integer;

begin
randomize;

for i:=1 to 10 do
   begin
      a1[i]:=random(50-10)-10;
      a2[i]:=random(50-10)-10;
      a3[i]:=random(50-10)-10;
      WriteLn(a1[i]:8,a2[i]:8,a3[i]:8);
   end;
sum1:=0;sum2:=0;sum3:=0;
for i:=1 to 10 do
   begin
      sum1:=a1[i]+sum1;
      sum2:=a2[i]+sum2;
      sum3:=a3[i]+sum3;
   end;
   sum1:=sum1/10;
   sum2:=sum2/10;
   sum3:=sum3/10;
   WriteLn(sum1,sum2,sum3);

end.

Сообщение отредактировано: Ozzя - 17.01.2006 10:55

[Malice]

(50+10)-10, иначе будет от -10 до 30.

[Ozzя]

(50+10)-10, иначе будет от -10 до 30.

Спасибо, да
random от l до k
Random(k-l)+l