Датчик случайных чисел Опции

[Rika]

Привет всем. У меня  никак не выходит решить задачу. Если кто знает, как её решать – помогите, плизззз.
Задача:
С помощью датчика случайных чисел на интервале (-250; 100) получить целочисленный массив , состоящий из 320 элементов.

[SKVOZNJAK]

Код

VAR Q: INTEGER;
     A: ARRAY [1..320] OF INTEGER;
BEGIN
RANDOMIZE;
FOR Q:=1 TO 320 DO A[Q]:=RANDOM(351)-250;
{FOR Q:=1 TO 320 DO WRITE('  ',A[Q]);  ПРОВЕРКА РЕЗУЛЬТАТА}
END.

Ну и что здесь сложного?

Сообщение отредактировано: volvo - 17.12.2004 20:27