Question

Решите, пожалуйста, задачу на языке Паскаль Дана непустая последовательность целых чисел, за которой следует ноль (признак конца последовательности). Найти первое отрицательное число этой последовательности. Заранее благодарю за ответы

Answer 1

Var
  k,n:integer;
begin
  n:=0;
  Writeln('Введите последовательность целых чисел, завершающуюся нулем');
  repeat
    Read(k);
    if (n=0) and (k<0) then n:=k
  until k=0;
  if n<0 then Writeln('Первое отрицательное число равно ',n)
  else Writeln('Последовательность не содержит отрицательных чисел')
end.
    
Тестовое решение
Введите последовательность целых чисел, завершающуюся нулем
5 11 17 3 -8 14 -6 3 0
Первое отрицательное число равно -8

Answer 2

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

program FirstNegativeNumber;

var
  number: integer;

begin
  repeat
    readln(number);
  until (number = 0) or (number < 0);
  
  if number < 0 then
    writeln('Первое отрицательное число: ', number)
  else
    writeln('Отрицательных чисел в последовательности нет');
end.

Эта программа считывает числа из последовательности до тех пор, пока не встретит ноль или отрицательное число. Если встречается отрицательное число, то программа выводит его на экран, иначе выводит сообщение о том, что отрицательных чисел в последовательности нет.

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

Answer 3

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

program FirstNegativeNumber;
var
  number, firstNegative: integer;
begin
  firstNegative := 0;
  repeat
    read(number);
    if number < 0 then
    begin
      firstNegative := number;
      break;
    end;
  until number = 0;
  
  if firstNegative < 0 then
    writeln('Первое отрицательное число: ', firstNegative)
  else
    writeln('Отрицательных чисел нет в последовательности');
end.

Эта программа считывает последовательность целых чисел до тех пор, пока не встретится ноль. После этого программа проверяет каждое число на отрицательность. Если она находит отрицательное число, она сохраняет его в переменной `firstNegative` и завершает выполнение цикла. После окончания цикла программа проверяет, было ли найдено отрицательное число, и выводит его, если оно было найдено, или сообщает, что отрицательных чисел в последовательности нет.