Question

Паскаль. Дан массив вещественных чисел В(20), заданной случайным образом в диапазоне от -65 до 90. Найти частное максимального на мин

Answer 1

var b: array [1..20] of real;

i: integer;

max,min: real;

begin

for i:=1 to 20 do b[i]:=random(156)-65;

max:=b[1];

min:=b[1];

for i:=2 to 20 do begin

if min>b[i] then min:=b[i] else

if max<b[i] then max:=b[i];

end;

writeln('Частное максимального ',max,' на ',min,' - ',max/min);

end.

Answer 2

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

1. Сгенерировать массив случайных вещественных чисел В(20) в указанном диапазоне.
2. Найти максимальное и минимальное значения в массиве.
3. Вычислить частное максимального значения на минимальное.

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

pascalCopy code
program MaxMinQuotient;

const
  N = 20;
  MinValue = -65;
  MaxValue = 90;

type
  RealArray = array[1..N] of Real;

var
  B: RealArray;
  i: Integer;
  MaxVal, MinVal, Quotient: Real;

// Функция для генерации случайного вещественного числа в заданном диапазоне
function RandomReal(AMin, AMax: Real): Real;
begin
  Result := Random * (AMax - AMin) + AMin;
end;

// Процедура для заполнения массива случайными вещественными числами
procedure FillArrayRandomly(var Arr: RealArray; AMin, AMax: Real);
var
  i: Integer;
begin
  for i := 1 to N do
    Arr[i] := RandomReal(AMin, AMax);
end;

// Функция для нахождения максимального значения в массиве
function FindMax(const Arr: RealArray): Real;
var
  i: Integer;
begin
  Result := Arr[1];
  for i := 2 to N do
    if Arr[i] > Result then
      Result := Arr[i];
end;

// Функция для нахождения минимального значения в массиве
function FindMin(const Arr: RealArray): Real;
var
  i: Integer;
begin
  Result := Arr[1];
  for i := 2 to N do
    if Arr[i] < Result then
      Result := Arr[i];
end;

begin
  // Инициализируем генератор случайных чисел
  Randomize;

  // Заполняем массив случайными вещественными числами
  FillArrayRandomly(B, MinValue, MaxValue);

  // Находим максимальное и минимальное значения в массиве
  MaxVal := FindMax(B);
  MinVal := FindMin(B);

  // Проверка на деление на 0
  if MinVal = 0 then
  begin
    WriteLn('Невозможно вычислить частное, так как минимальное значение равно нулю.');
  end
  else
  begin
    // Вычисляем частное максимального на минимальное
    Quotient := MaxVal / MinVal;

    // Выводим результат
    WriteLn('Максимальное значение: ', MaxVal:0:2);
    WriteLn('Минимальное значение: ', MinVal:0:2);
    WriteLn('Частное максимального на минимальное: ', Quotient:0:2);
  end;
end.

Обратите внимание, что код использует функцию Randomize, чтобы инициализировать генератор случайных чисел, и функцию RandomReal, которая генерирует случайное вещественное число в указанном диапазоне. После заполнения массива случайными значениями, функции FindMax и FindMin находят максимальное и минимальное значения в массиве соответственно. Затем, если минимальное значение не равно нулю, вычисляется частное максимального на минимальное и выводится на экран.