Задайте массив из 10 частей с поддержкою датчика случайных чисел лежащих

Задайте массив из 10 частей с поддержкою датчика случайных чисел лежащих промежутке от -20 до 18

Задать свой вопрос
1 ответ
Const
    max_v = 10;
    m1 = -20;
    m2 = 18;
    
var v:array [1..max_v] of integer;
    i:byte;

begin
  randomize();
  for i:=1 to max_v do
    v[i]:=random(m1,m2);

end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт