Задача в Pascal ABC

[Лиза_]

С клавиатуры вводится N целых чисел(N - натуральное число).
Распечатать первое отрицательное число. Если такое не найдено, выдать сообщение.
Помогите пожалуйста написать программу!

[Poma][a]

ReadLn (n);

for i := 1 to n do begin
        Read (t);
        if t < 0 then begin
               WriteLn (t);
               Halt;
        end;
end;

WriteLn ('Не найдено отрицательных чисел')

[Karpinsky]

В этом коде есть несоответствие заданию (хуже кода, который делает не то, что от него просят, быть ничего не может). N целых чисел могут и не быть введены с клавиатуры, а в условии ясно сказано:

С клавиатуры вводится N целых чисел

, а не "до первого отрицательного".

[Poma][a]

[Serge_Bliznykov]

Poma][a, Вы не правы.

у Вас N чисел НЕ ВВОДИТСЯ в программу.
то, что Вы заскриншотили, ни о чём не говорит.
напишите в строке 20 чисел.
и что нибудь изменится?!

а если после каждого вводимого числа наживать Enter (это же не запрещено, надеюсь )?!


я бы такой вариант предложил:

var 
   N. t, firstNeg : integer;
begin
  WriteLn('Введите количество чисел: ');
  ReadLn (n);

  firstNeg := 0;
  for i := 1 to n do begin
    Read (t);
    if (firstNeg=0) and (t<0) then firstNeg := t;
  end;

  if firstNeg=0 then
    WriteLn ('Не найдено отрицательных чисел')
  else 
    WriteLn ('Первое отрицательное число:', firstNeg);

end.

[Poma][a]

Парирование было специально для Karpinsky и не было рассчитанно что сюда заглянете Вы либо кто-то еще из батек форума...