Решите, пожалуйста, задачу ** языке Паскаль Дана непустая последовательность целых чисел,...

Question

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

Answer 1

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

Comments

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