Question

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

Answer 1

Конечно, вот фрагмент кода на Pascal, который заполняет массив `harry` значениями, соответствующими предложенному правилу:

program FillArray;
const
  arraySize = 7; // Размер массива [-3..3]
var
  harry: array[-3..3] of integer;
  i, value: integer;
begin
  // Заполнение массива случайными значениями из диапазона 150..190
  Randomize; // Инициализация генератора случайных чисел
  for i := -3 to 3 do
    harry[i] := Random(41) + 150; // Random(41) генерирует числа от 0 до 40
  
  // Вывод полученных случайных значений
  writeln('Случайно заполненный массив harry:');
  for i := -3 to 3 do
    writeln('harry[', i, '] = ', harry[i]);

// Заполнение элементов массива согласно условию (значение каждого элемента больше его индекса в 5 раз)
  writeln('Введите значения элементов массива: ');
  for i := -3 to 3 do
  begin
    repeat
      writeln('harry[', i, '] (больше ', i, '*5 = ', i * 5, '): ');
      readln(value);
    until value > i * 5;
    harry[i] := value;
  end;

// Вывод окончательных значений массива
  writeln('Окончательный массив harry:');
  for i := -3 to 3 do
    writeln('harry[', i, '] = ', harry[i]);
end.

Этот код сначала заполняет массив `harry` случайными значениями из диапазона 150..190, затем предлагает пользователю ввести значения для каждого элемента массива так, чтобы они были больше индекса элемента в 5 раз.