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