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