Question

паскаль Заполнить массив случайными числами и найти элемент наиболее близкий по значению к максимальному элементу.

Answer 1

Const N = 100;
Var m:array [1..N] of integer; i,max,o:integer;
begin
randomize;
o:=0;
for i:=1 to N do begin
m[i]:= random(1000);
if m[i]>max then max:=m[i]; end;
for i:=1 to N do begin
write(m[i],' ');
if (m[i]>o) and (m[i]<max) then o:=m[i]; end;
writeln;
writeln('--=',o,' =--');
readln;
end.

Answer 2

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

pascalCopy code
program FindClosestToMax;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  i, maxElement, closestElement, diff, minDiff: Integer;

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

  // Заполняем массив случайными числами
  for i := 1 to N do
    arr[i] := Random(100); // Генерируем случайное число от 0 до 99

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

  // Инициализируем минимальную разницу значением, которое гарантировано больше
  // любой разницы между элементами массива
  minDiff := 100; // Максимальное значение случайного элемента

  // Находим элемент, наиболее близкий к максимальному
  for i := 1 to N do
  begin
    diff := Abs(maxElement - arr[i]); // Вычисляем разницу
    if diff < minDiff then
    begin
      minDiff := diff; // Обновляем минимальную разницу
      closestElement := arr[i]; // Запоминаем элемент с минимальной разницей
    end;
  end;

  // Выводим результат
  WriteLn('Исходный массив:');
  for i := 1 to N do
    Write(arr[i], ' ');

  WriteLn;
  WriteLn('Максимальный элемент: ', maxElement);
  WriteLn('Наиболее близкий элемент к максимальному: ', closestElement);

end.

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