Question

Задача: В массиве Х, состоящем из 50 элементов, заполненном случайными числами из промежутка [-30,30], найти разность наибольшего и наименьшего элементов массива.Сделать программу как в паскале

Answer 1

Программа:

Pascal:

var

 X: array[1..50] of integer;

begin

 for var i := 1 to 50 do X[i] := random(-30, 30);

 print(X, #10, X.max - X.min);

end.

Answer 2

Задача: Найти разность наибольшего и наименьшего элементов массива

Для решения данной задачи вам потребуется написать программу на языке Pascal, которая будет находить разность наибольшего и наименьшего элементов в массиве.

Вот пример программы на языке Pascal, которая решает данную задачу:

program FindDifference;
const
  N = 50; // количество элементов в массиве
var
  X: array[1..N] of integer; // массив из 50 элементов
  i: integer; // переменная для цикла
  min, max, difference: integer; // переменные для хранения минимального, максимального и разности элементов
begin
  // Заполняем массив случайными числами из промежутка [-30, 30]
  randomize; // инициализация генератора случайных чисел
  for i := 1 to N do
    X[i] := random(61) - 30; // генерируем случайное число от -30 до 30

// Находим минимальный и максимальный элементы массива
  min := X[1];
  max := X[1];
  for i := 2 to N do
  begin
    if X[i] < min then
      min := X[i];
    if X[i] > max then
      max := X[i];
  end;

// Находим разность наибольшего и наименьшего элементов
  difference := max - min;

// Выводим результат
  writeln('Разность наибольшего и наименьшего элементов массива: ', difference);
end.

В данной программе мы используем массив `X` из 50 элементов для хранения случайных чисел из промежутка [-30, 30]. Затем мы находим минимальный и максимальный элементы массива и вычисляем разность между ними. Результат выводится на экран.

Примечание: В данной программе используется функция `randomize`, которая инициализирует генератор случайных чисел. Это необходимо для получения разных случайных чисел при каждом запуске программы.

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