Question

Нужно решить задачу с помощью Paskal. Нужно найти минимальный элемент среди отрицательных чисел и максимальный элемент среди положительных

Answer 1

...................................

Answer 2

Пояснение: заполни массив 10-ю элементами и он выдаст то, что тебе нужно
var arr: array [1..10] of integer;
var i,min,max:integer;
begin
for i:=1 to 10 do begin
writeln('Введите ',i,' элемент');
readln(arr[i]);
end;
min:=0;
max:=0;
for i:=1 to 10 do begin
if (arr[i]<0) then begin
if (arr[i]<min) then begin
min:=arr[i];
end;
end
else
if (arr[i]>0) then begin 
if (arr[i]>max) then begin 
max:= arr[i];
end;
end;
end;
writeln('Минимальный элемент среди отрицательных чисел ',min);
writeln('Максимальный элемент среди положительных чисел ',max);
end.

Answer 3

Для решения данной задачи с помощью языка Pascal, можно использовать следующий алгоритм:

1. Объявить и инициализировать переменные минимального и максимального элементов. Назовем их minElement и maxElement соответственно. Изначально можно задать им значения, например, minElement = MaxInt и maxElement = -MaxInt.

2. Создать массив чисел, в котором будут храниться значения.

3. Заполнить массив числами.

4. Пройти по всем элементам массива и сравнить их со значениями minElement и maxElement.

- Если текущий элемент массива меньше 0 и меньше значения minElement, то присвоить minElement значение текущего элемента. - Если текущий элемент массива больше 0 и больше значения maxElement, то присвоить maxElement значение текущего элемента.

5. Вывести значения minElement и maxElement.

Пример решения на языке Pascal:

program FindMinMax;
const
  N = 10; // количество элементов в массиве
var
  numbers: array[1..N] of integer; // массив чисел
  minElement, maxElement: integer; // минимальный и максимальный элементы
  i: integer; // счетчик цикла

begin
  // Заполнение массива числами
  for i := 1 to N do
  begin
    write('Введите число ', i, ': ');
    readln(numbers[i]);
  end;

// Инициализация минимального и максимального элементов
  minElement := MaxInt;
  maxElement := -MaxInt;

// Поиск минимального и максимального элементов
  for i := 1 to N do
  begin
    if (numbers[i] < 0) and (numbers[i] < minElement) then
      minElement := numbers[i];

if (numbers[i] > 0) and (numbers[i] > maxElement) then
      maxElement := numbers[i];
  end;

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

end.

В данном примере пользователю предлагается ввести 10 чисел, после чего программа находит минимальный элемент среди отрицательных чисел и максимальный элемент среди положительных чисел. Результат выводится на экран.