Question

Нужно написать программу в паскале. Срочно!!! Дано N действительных чисел. Найти максимальное только среди отрицательных из данных чисел и его номер.

Answer 1

Вот что получилось. Прикладываю два скриншота:
на первом - листинг программы
на втором результат поиска максимального элемента 

Answer 2

Программа на Паскале для поиска максимального отрицательного числа и его номера

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

1. Создайте переменные `N`, `maxNegative`, и `maxNegativeIndex` и инициализируйте их соответствующими значениями. 2. Введите значение `N` - количество действительных чисел. 3. Создайте цикл `for` для ввода `N` чисел и выполните следующие действия: - Введите число и сохраните его в переменной `num`. - Проверьте, является ли `num` отрицательным числом. - Если `num` отрицательное число и больше, чем текущее значение `maxNegative`, то обновите значения `maxNegative` и `maxNegativeIndex` соответственно. 4. Выведите значение `maxNegative` и `maxNegativeIndex`.

Пример кода на Паскале:

program FindMaxNegative;
var
  N, i, maxNegativeIndex: integer;
  num, maxNegative: real;
begin
  maxNegative := 0;
  maxNegativeIndex := 0;

write('Введите количество чисел N: ');
  readln(N);

for i := 1 to N do
  begin
    write('Введите число: ');
    readln(num);

if (num < 0) and (num > maxNegative) then
    begin
      maxNegative := num;
      maxNegativeIndex := i;
    end;
  end;

writeln('Максимальное отрицательное число: ', maxNegative);
  writeln('Номер максимального отрицательного числа: ', maxNegativeIndex);
end.

После запуска программы, она запросит у вас ввести количество чисел `N`. Затем, по очереди, она попросит вас ввести каждое число. После ввода всех чисел, программа выведет максимальное отрицательное число и его номер.

Примечание: Пожалуйста, убедитесь, что ваша среда разработки поддерживает Паскаль и правильно настроена для компиляции и запуска программ на Паскале.