Question

Будьте добры помочь, с клавиатуры вводятся целые числа. Признак конца ввода – 0. Определить все числа идущие перед отрицательными числами. паскаль

Answer 1

Вот такая программа паскаль

Answer 2

Вам необходимо написать программу на языке Паскаль, которая будет считывать целые числа с клавиатуры до тех пор, пока не будет введен 0. Затем программа должна определить все числа, идущие перед отрицательными числами.

Вот пример кода на Паскале, который решает данную задачу:

program FindPositiveNumbers;
var
  number, previousNumber: integer;
begin
  previousNumber := 0; // предыдущее число, изначально равно 0
  
  repeat
    write('Введите число: ');
    readln(number);
    
    if (number < 0) and (previousNumber > 0) then
    begin
      writeln('Все числа перед отрицательным числом: ', previousNumber);
    end;
    
    previousNumber := number;
  until number = 0;
end.

В этом коде используется цикл `repeat-until`, который выполняется до тех пор, пока введенное число не равно 0. Внутри цикла программа считывает число с помощью `readln`, а затем проверяет, является ли оно отрицательным и предыдущее число положительным. Если это условие выполняется, программа выводит предыдущее число.

Надеюсь, эта информация поможет вам написать программу на Паскале, решающую вашу задачу.