Question

напишите фрагмент кода заполнения массива А по предлагаемому правилу (массив объявлен как a:harry [-3..3]of integer):
значение элемента вводятся пользователем с клавиатуры;
значение элементов случайные числа из диапазона -50..50;
значение каждого из элементов больше его индекса в 5 раз;
массив предназначен для хранения ростов.Заполните его случайными значениями из диапазона 150..190.

Answer 1

//1

 for i := -3 to 3 do

   Read(a[i]);

 //2

 Randomize;

 for i := -3 to 3 do

   a[i] := Random(101) - 50;

 //3

 for i := -3 to 3 do

   a[i] := 5 * i;

 //4

 Randomize;

 for i := -3 to 3 do

   a[i] := Random(41) + 150