Question

Pascal ABC. Составьте программу нахождения минимального элемента среди отрицательных чисел и максимального элемента среди положительных.

Answer 1

begin

 var count := ReadInteger('Введите количество чисел:');

 var min := 0;

 var max := 0;

 for var i := 1 to count do

 begin

   var number := ReadInteger('Введите число:');

   if (number > 0) and (number > max) then max := number;

   if (number < 0) and (number < min) then min := number;

 end;

 Println('Минимальное среди отрицательных:', min);

 Println('Максимальное среди положительных:', max);

end.

Answer 2

Конечно, вот пример программы на языке Pascal ABC для нахождения минимального отрицательного элемента и максимального положительного элемента в массиве:

pascalCopy code
program MinMaxElement;

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

var
  arr: array[1..N] of Integer;
  i: Integer;
  minNegative, maxPositive: Integer;

begin
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Инициализация переменных для минимального отрицательного и максимального положительного элементов
  minNegative := MaxInt;
  maxPositive := -MaxInt;

  // Поиск минимального отрицательного и максимального положительного элементов
  for i := 1 to N do
  begin
    if (arr[i] < 0) and (arr[i] < minNegative) then
      minNegative := arr[i];
      
    if (arr[i] > 0) and (arr[i] > maxPositive) then
      maxPositive := arr[i];
  end;

  // Вывод результатов
  writeln('Минимальный отрицательный элемент: ', minNegative);
  writeln('Максимальный положительный элемент: ', maxPositive);
end.

Программа предполагает ввод 10 целых чисел пользователем и затем находит минимальное отрицательное и максимальное положительное число среди введенных элементов массива.