Question

Решить задачу в Паскале: Задать случайным образом 8 элементов числового массива – числа от 100 до 200. Вставить в него: а) число «-20» перед 5-ым элементом.б) число «0» перед максимальным элементом. В одной задаче должно быть и а и б (но можно и по отдельности, главное, чтобы было верно)))срочно!  жду верного и быстрого решения) 

Answer 1

Решение задачи в Паскале

Для решения данной задачи в Паскале, вам потребуется создать массив из 8 элементов и заполнить его случайными числами от 100 до 200. Затем вставить число "-20" перед 5-ым элементом массива и число "0" перед максимальным элементом массива.

Вот пример кода на Паскале, который решает данную задачу:

program ArrayManipulation;

uses
  SysUtils;

const
  N = 8;
  MinValue = 100;
  MaxValue = 200;

var
  arr: array[1..N] of Integer;
  i, maxIndex: Integer;

begin
  Randomize;

// Заполнение массива случайными числами от 100 до 200
  for i := 1 to N do
    arr[i] := Random(MaxValue - MinValue + 1) + MinValue;

// Вставка числа "-20" перед 5-ым элементом массива
  Insert(-20, arr, 5);

// Поиск максимального элемента массива
  maxIndex := 1;
  for i := 2 to N do
  begin
    if arr[i] > arr[maxIndex] then
      maxIndex := i;
  end;

// Вставка числа "0" перед максимальным элементом массива
  Insert(0, arr, maxIndex);

// Вывод полученного массива
  for i := 1 to N do
    WriteLn(arr[i]);

ReadLn;
end.

В этом коде мы используем процедуру `Insert`, чтобы вставить элементы в массив. Затем мы находим максимальный элемент массива и вставляем число "0" перед ним. Результат выводится на экран.

Примечание: В данном примере мы используем встроенную процедуру `Insert`, которая доступна в Pascal. Если вы используете другую среду разработки или компилятор, убедитесь, что у вас есть аналогичная функция или процедура для вставки элементов в массив.

Надеюсь, это решение поможет вам! Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать.