Сконструировать и вывести на экран последовательность из n частей заданных случайным

Сформулировать и вывести на экран последовательность из n частей данных случайным образом на промежутке от -17 до 33

Задать свой вопрос
1 ответ

var

 n, i: Integer;

begin

   Writeln ('Введите количество частей: ');

   ReadLn (n);

   Randomize;

   Writeln ('Последовательность случайных частей: ');

   for i := 1 to n do begin

     Write (IntToStr (Random (50) - 17) + ' ');

   end;

end;

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


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

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

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

Войти на сайт