random(На промежутке [-40;20])+array

[TheCross94]

Здравствуйте...
В основном паскаль мне давался относительно легко, но в последнее время появилась задача что сильно меня "кусает"
Вот условие:
В одномерном массиве Y состоящей из N целых чисел, лежащих на промежутке [-40;20], вычислить произведение эл-тов массива, расположенных до первого положительного ел-та.
(заполнение c помошью random);
Вот текстмоей программы:

program tp;
const N=20;
var Y:array[1..N]of integer;
k,i,p:integer;
flag:boolean;
begin
randomize;
for i:=1 to n do
Y[i]:=random(60)-40;{Вот тут то и вся беда,говорят что промежуток неправильный}
p:=1;
k:=1;
flag:=true;
while flag:=true do
begin
if Y[k]<=0
then p:=p*Y[k];
else flag:=false;
k:=k+1;
end;
writeln('Произведение р=',p);
end.

Думаю обьяснять не стоит что к чему сдесь...
Зарание спасибо!!!

[Roof]

(61) - 40.
Random возвращает случайное число от 0 до указанного в качестве аргумента, не включая значение самого аргумента.
0 <= X < Range
http://www.pascal.helpov.net/index/pascal_Random

[_-Re@l-_]

Y[i]:=random(60)-40;{Вот тут то и вся беда,говорят что промежуток неправильный}

Можно так(если неправильно, то я не знаю как):

Y[i]:=random(20)-random(40);

[Roof]

2 _-Re@l-_ - неправильно. Представь - максимальные возвращаемые числа это 19 и 39.
19 - 39 = -20. Не сходится с диапазоном [-40..20]

2 TheCross94 - используй кнопочку # для оформления кода.

[_-Re@l-_]

Ах, [-40;20]...Я прочитал [-20;20]...

[Mad_Cat]

flag:=true;
while flag:=true do
begin
if Y[k]<=0
then p:=p*Y[k];
else flag:=false;
k:=k+1;
end;
writeln('Произведение р=',p);

да уж! а так не короче?

while y[k]<=0 do
begin
if y[k]<>0 then p:=p*y[k];
inc(k);
end;
writeln('Произведение р=',p);

[TheCross94]

Сообщение от Mad_Cat

flag:=true;
while flag:=true do
begin
if Y[k]<=0
then p:=p*Y[k];
else flag:=false;
k:=k+1;
end;
writeln('Произведение р=',p);

да уж! а так не короче?

while y[k]<=0 do
begin
if y[k]<>0 then p:=p*y[k];
inc(k);
end;
writeln('Произведение р=',p);

inc(k);

- а что означает данный оператор?

[Mad_Cat]

inc(k); == k:=k+1;

[_-Re@l-_]

а что означает данный оператор?

Эт не оператор, эт процедура инкремента.