Question

для целочисленного массива X(n), заданного датчиком случайных чисел в интервале [-15;25], найти наибольший из отрицательных элементов Язык Паскаль Информатика 11 класс

Answer 1

Ответ:

pascal

Объяснение:

program maximum;

var n, i, max: integer;

   x: array of integer;

begin

   Write('Введите размер массива:');

   ReadLn(n);

   SetLength(x,n);

   Randomize();

   max := -15;

   WriteLn('Массив:');

   for i := 0 to n - 1 do

   begin

     x[i] := round(random(41) - 15);

     Write(x[i],', ');

     if (x[i] > max) and (x[i] < 0) then max := x[i];

   end;

   WriteLn();

   WriteLn('Наибольший из отрицательных элементов равен ', max);

end.

Answer 2

Для нахождения наибольшего из отрицательных элементов целочисленного массива X(n) в языке Pascal, вы можете использовать следующий код:

pascalCopy code
program MaxNegativeElement;

const
  n = 100; // Максимальный размер массива (замените на нужное значение)
  
var
  X: array[1..n] of integer;
  i, maxNegative: integer;

begin
  // Заполнение массива случайными числами в интервале [-15; 25]
  randomize;
  for i := 1 to n do
    X[i] := random(41) - 15;

  // Инициализация переменной maxNegative значением, которое гарантированно присутствует в массиве
  maxNegative := -16; // Меньше самого маленького возможного отрицательного числа

  // Поиск наибольшего отрицательного элемента в массиве
  for i := 1 to n do
  begin
    if (X[i] < 0) and (X[i] > maxNegative) then
      maxNegative := X[i];
  end;

  // Проверка наличия отрицательных элементов
  if maxNegative = -16 then
    writeln('В массиве нет отрицательных элементов')
  else
    writeln('Наибольший отрицательный элемент в массиве: ', maxNegative);

  readln;
end.

Этот код создает массив X(n) и заполняет его случайными числами в интервале [-15; 25]. Затем он проходит по массиву и находит наибольший из отрицательных элементов. Если в массиве нет отрицательных элементов, программа выведет соответствующее сообщение.