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.