Question

СРОЧНО!!!! ПОМОГИТЕ!!! Заполните массив 10-юслучайными числами в интервале [-7,15] и подсчитать число максимальных элементов массива.Паскаль.

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(10, -7, 15);

 var max := a.Println.Max;

 a.Count(p -> p = max).Print

end.

Answer 2

Конечно, вот пример кода на языке Паскаль, который заполняет массив 10 случайными числами в интервале [-7, 15] и подсчитывает количество максимальных элементов:

pascalCopy code
program MaxCount;

const
  N = 10;
  MinValue = -7;
  MaxValue = 15;

var
  arr: array[1..N] of integer;
  i, maxVal, maxCount: integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;
  
  // Заполнение массива случайными числами
  for i := 1 to N do
    arr[i] := Random(MaxValue - MinValue + 1) + MinValue;
    
  // Начальные значения для поиска максимального элемента
  maxVal := arr[1];
  maxCount := 1;
  
  // Поиск максимального элемента и подсчет его количества
  for i := 2 to N do
  begin
    if arr[i] > maxVal then
    begin
      maxVal := arr[i];
      maxCount := 1;
    end
    else if arr[i] = maxVal then
      Inc(maxCount);
  end;
  
  // Вывод результатов
  writeln('Массив случайных чисел:');
  for i := 1 to N do
    write(arr[i], ' ');
    
  writeln;
  writeln('Максимальное значение:', maxVal);
  writeln('Количество максимальных элементов:', maxCount);
end.

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