1.Дан массив из 16 целочисленных частей. Заполните его случайными целыми числами

1.Дан массив из 16 целочисленных частей. Заполните его случайными целыми числами из интервала от -15 до 25.
2.Дан одномерный массив длиной 18 чисел. Заполните его четными числами по порядку, начиная с -8.
3.Дан одномерный массив длиной 18 чисел. Заполните его нечетными числами по порядку, начиная с 7.

Задать свой вопрос
Кокряков Василий
паскаль
1 ответ
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(16,-15,25); a.Println;
  var b:=ArrGen(18,i-gt;2*i-8); b.Println;
  var c:=ArrGen(18,i-gt;2*i+7); c.Println
end.

Пример
24 -2 -8 9 -10 10 3 9 21 8 15 -8 -12 16 15 4
-8 -6 -4 -2 0 2 4 6 8 10 12 14 16 18 20 22 24 26
7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт