Сумма элементов массива

@karkomak · Регистрация: 18.11.2015

Author24 — интернет-сервис помощи студентам

Написал всё задание кроме такого момента:
Сгенерировать массив в 250 элементов так,чтобы они в сумме получались равны 1, т.е. диапазон (0,1), не включая их соответственно. Далее нужно вывести 15 первых случайных значений.

@Puporev · 26.10.2012, 15:27

Можно так, с проверкой.

Pascal

const n=250;
var a:array[1..n] of real;
    s:real;
    i:byte;
begin
randomize;
s:=0;
for i:=1 to n-1 do
 begin
  a[i]:=random/n;
  s:=s+a[i];
 end; 
a[n]:=1-s;
for i:=1 to n do
write(a[i]:7:3);
s:=s+a[n];
writeln;
writeln('s=',s:0:3);
for i:=1 to 15 do
write(a[i]:6:3)
end.

@karkomak · 27.10.2012, 01:52

Спасибо огромное!

@karkomak 1 / 1 / 0 Регистрация: 18.11.2015 Сообщений: 53
		1
	Сумма элементов массива 24.10.2012, 14:01. Показов 1325. Ответов 2 Метки нет (Все метки) Написал всё задание кроме такого момента: Сгенерировать массив в 250 элементов так,чтобы они в сумме получались равны 1, т.е. диапазон (0,1), не включая их соответственно. Далее нужно вывести 15 первых случайных значений. 0

@karkomak 1 / 1 / 0 Регистрация: 18.11.2015 Сообщений: 53
	27.10.2012, 01:52	3
	Спасибо огромное! 0

Сумма элементов массива

Решение