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

Программа работает, все отлично! А можно будет к Вам обращаться за решениями по решениям задач на языке Паскаль?

Answer 3

Ну зачем именно ко мне? Тут много кто решать задания может... кто увидит, сможет, тот и решит.